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Introduction 


This book contains seven adventure games, all of which are 
different, but are linked by the common theme of being 
ztaphical. They are all designed to be as easy as possible to enter, 
but very difficult to solve (the hallmark of a good adventure). 

Various techniques are employed in the programs, including 
machine-code mapping, scrolling and memory-saving routines; 
wherever possible these methods are explained in a clear and 
concise manner. Consequently, this book provides instruction in 
the art of adventure writing as well as endless hours of happy 
adventuring. 

Each of the seven games is divided into a number of sections as 
described below. 


Scenario 


A brief description of the game is given, outlining the player’s 
role. This section tells of the quest to be solved and the tasks that 
the player will be presented with. 


Hints on Entry 


As the programs are very long, it is highly likely that errors will be 
made during the typing stage. This section is intended to assist 
the user by pointing out the complex lines where errors may 
occur. It is therefore most important that constant reference is 
made to this section during the typing stage. 


Techniques 


Each program will be accompanied by a short section instructing 
the user about one of the more complex techniques employed in 
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the program. It is hoped that by reading these notes and referring 
to the listings valuable information about the methods employed 
will be gained. This knowledge could then be put to use in the 
design of more complex adventures. 


Playing Instructions 


By definition an adventure game requires the player to experi- 
ment and find many of the commands for himself; because of this 
the playing instructions will only give the bare minimum of 
information. Such information will usually relate to the move- 
ment and the basic command structure. 


Adaptation 

In order to increase variety, several of the programs are designed 
so that they can be easily changed by typing in new mazes, floor 
plans, etc. For the programs containing this facility, a set of clear, 
easy-to-follow instructions are given. 

Listing 


The last section of each chapter will contain the listing together 
with a notice similar to that shown below. 


IMPORTANT 
1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED IN LOWER CASE LETTERS. 


As can be seen from the notice, all games are written in the 
CAPS LOCK mode, so that the graphics represented by small 
letters are easily recognizable. These graphics characters must be 
entered by using the graphics mode (see Spectrum manual). 
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House of Adventure 


Scenario 


It was many years after the death of your rich uncle, Alluishus 
Flude the second, when you were told by an old friend about the 
massive hoard of treasure which he had collected during his 
many profitable years. It was rumoured that he had hidden many 
valuable jewels in his massive mansion and that these, if found, 
would lead to undreamt riches. 

A few days ago, however, something else came to light. While 
being shown around the mansion you noticed a faded piece of 
parchment behind some books. On closer inspection the 
message on the parchment confirmed that all the rumours were 
true. So that no one else should find it, you burnt the note. Then 
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early the next morning, when all was quiet, you entered the 
forbidding house, determined to find the ten jewels that would 
lead to incredible wealth. 


Hints on Entry 


Because the program is very long and only just fits into the 48K 
machine, it has been split into two parts which should be entered 
as follows: 


First type in ADVENTURE.1. This sets up the user-defined 
graphics which will be used in the main program. When the 
program has been entered and checked, save it on tape using the 
command 


SAVE “CHAR” LINE 1 


Now type in ADVENTURE.2, paying particular attention to the 
numerous VAL’”’ instructions that have been entered to save 
memory space. When this program is finished, save it on tape 
after the original CHAR program by typing 


SAVE “ADVENTURE” LINE 1 


When this is completed, you are ready to start the adventure. 
Rewind the tape and type LOAD”; then the loading and 
initializing procedure are automatic. 


Note 


The two programs are set out in a clear and concise manner, and 
should not cause any major problems. However, special care 
should be taken when entering the lines containing textual 
messages (e.g. 8915, 9302) in which spaces are often omitted or 
added, to produce a satisfactory format on the screen. 


Techniques 


One problem often encountered when writing large adventure 
games is the lack of available memory (i.e. RAM). Any program 
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‘et involves a lot of arrays or numerical data will use up memory 
very quickly, with each numerical value requiring at least 7 bytes. 

In the case of arrays, it is very difficult to economize, but there 
c= many ways in which memory can be saved with numerical 


c2t2. 


|) [fa particular value (say 126) is often needed within a program, 
then it is possible to save memory by assigning the number to 
a variable (i.e. LET Z=126) and to use this throughout the 
program. 

2) The value 0 is one of the most frequently used numbers in a 
program, and many bytes can be saved by replacing it with 
NOT PI. 

3) Memory can also be saved by reducing large quantities of 
numbers into strings and then using the VAL function to 
transform them into numerical values. Thus 


REPLACE 12 WITH VAL“'12” 


The amount of memory that can be saved by using these 
methods will depend on the actual program. The above tech- 
niques were used in this adventure representing a saving of 
approximately 6K of memory. 


Playing Instructions 


House of Adventure is a text/graphics game, your quest being to 
find the ten jewels which will allow you to reach some hidden 
treasure. When found the jewels must be deposited in the jewel 
tablet, which must also be located. The jewels are concealed in the 
most unlikely places and finding them in the mansion will 
require a great deal of skill and logical thought. During the game, 
conversation with the computer is made by entering the com- 
mands in the form verb/noun after which the appropriate action 
will take place graphically on the screen. 

As mentioned in the Introduction, it would be against the 
spirit of adventure to give all the commands and, accordingly, 
only the most important are listed below. 


GET To pick up an object type GET followed by the 
object’s name. 
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DROP 
I 


J 


HELP 


EXAMINE 


LOOK 


Movement 


To drop an object type DROP followed by the name 
of the object as indicated in the inventory. 

The I or inventory command will list all the objects 
that you are carrying. 

This is similar to the inventory command, but 
pertains to the jewels and not to the objects. 

If you are absolutely stuck then by typing HELP you 
may, if you’re lucky, get some advice from the 
computer. 

To examine an object type EXAMINE followed by 
the object’s name. 

By typing LOOK followed by a direction, a report 
on anything important in that direction can be 
obtained. 


Movement can be made in any of six directions as listed in Table 


he 


Listing 


Table 1 
Command Direction 
N North 
S South 
E East 
WwW West 
U Up 
D Down 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 
2) ALL GRAPHICS CHARACTERS ARE INDICATED IN LOWER CASE LETTERS. 
3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


ee oe Se a 1 
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House of Adventure 7 
me ADVENTURE.1 


12 RESTORE 20: FOR N=USR "A" TO USR "S 
ia <7: READ A: POKE N,A: NEXT N 

Loap "" 

DATA 36,6@, 36,60, 36,64, 36, 36 

ms 32 DATA 16,16,56, 124,124; 124, 124, 124 
‘a DATA 24,16;24, 16, 16,56,68,56,4,8,8, 
>295,64,¢ 

DATA 16, 16.16.16, 18.16, 16, 14 

DATA 8,31; 35,69, 249, 138, 140, 248 
DATA 2,68,118,114,251, 126,126, 68 
DATA 28, 34,34; 28,8,85858 

DATA @,62,62,8,8,8,8,8 

DATA @,2,4;8,16,32,64,2 

DATA 24324, 60, 66, 66, 36, 24,2 

DATA 112,16,112,16,16,56,68,56 
DATA 8,8,8,124,124,124,124,@ 

DATA @; 66,231,231, 231;231,231,8 
DATA 24,243;24, 24,24, 24, 24,24 

DATA 8,4, 134,255, 134,4,4,2 

198 DATA 60,60, 24, 24,24, 24,24, 24 

22 DATA B, 124, 68, 68,68, 68, 124,2 

218 DATA 24,60; 24, 126; 90, 90, 36, 36 
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ADVENTURE.2 


1 GO SUB 6822 
< GLEAR VAL “SSeSSg9" 
3 CLS = PRINT FLASH VAL "1"3"PLEASE 
WAIT A FEW SECONDS....... " 
4 POKE VAL "23658",UAL "8" 
11 FOR N=VAL “6@@@8" TO VAL "68288": P 
OKE N,VAL "@": NEXT N 
12 LET J=VAL "1" 
13 DIM OCMAL. *238") 
14 DIM YCUAL “18"): RESTORE VAL “885@" 
FOR N=VAL "1" TO VAL "18": READ YC(N): 
NEXT N 
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16 LET R=VAL "6" 
19 GO SUB VAL "28": GO TO VAL "288" 
26 DIM OS$CVUAL "18",UAL "32"): LET O$C(U 
AL "1")="A BROKEN LADDER IS ON THE FLOOR 
21 LET O#(VAL "2"J="A POT OF GLUE IS 0 
N A SHELF. - 
22 LET O$(VAL "5S")="YOU NOTICE A MATCH 
ON THE FLOOR," 
23 LET O$(VAL "6")="ON THE TABLE IS A 


MATCHBOX. " 

24 LET OSCVAL “4")="THERE IS A KNIFE O 
N A CHAIR, " 

2 LET OS(UAL. "?7"J="0ON THE TABLE IS TH 
—E BLUE BALL, " 

26 LET O$C(VAL "8")="YOU SEE A MAGNIFY! 
NG GLASS, i“ 

2? LET OS(VAL °3")="ON JHE FLOOR IS AN 

IRON KEY, . 

28 LET O$C¥AL "3S")J="A HAMMER LIES ON T 
HE FLOOR. 7 

23 LET O$C(VAL "12"}3="IN THE DRAWER IS 
A GOLD KEY, 7 

3@ LET x$="": LET OBJ=VAL "@" 


31 LET O$CUAL “1@")J="IN A CORNER IS A 


WOODEN STAKE. “ 
32 LET O$CVAL "13")="A SMALL RADIO REC 


EIVER IS HERE. " 
so LET OS(VAL. "11")="0N THE FLOOR JS A 


LUCKY CHARM, " 
34 LET O$C¥AL "14")J="ON THE GROUND; SO 


ME BATTERIES. “ 
35 LET O$CVAL "15"J="LEANING ON THE WA 


LL? A PLANK. ” 
36 LET OS(CUAL “16"J="ERXCEPT FOR AM IRBO 


N SPADES " 
37 LET OS(YAL “17"}="0N THE FLOOR IS A 


TORCH. . 


ui 


J) 
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33 LET O$CUAL "18")J="A MIRROR IS LYING 

I§ A CORNER. " 

3@ DIN R#CVAL "5",VAL "32"): LET R#CUA 
—~ ~1"J="NOTHING IS UISIBLE HERE. 


S32 LET R$CUAL "3")="LOOKING DOWN, YOU 
mee THE OPAL." 

SS LET R#CVAL "4"J="A PLANK SPANS THE 
sno " 


LET R$CUYAL "S"J="STAIRS LEAD TO THE 
-EN TRAPDOOR" 

133 RETURN 

226 DIN J$CVAL "18",VAL "15"): LET J¢CU 
SL "1"3="RUBY": LET J$CUAL "2")="EMERALD 
">: LET J$CUAL "3")="PEARL": LET J$CUAL " 
=")="DIAMOND": LET J$CVAL "5")="O0PAL" 

21@ LET J$C(UAL "6")="AMBER": LET J#$CUAL 

S7")="GOLD BAR": LET J$CVAL "8")="SILUE 
= NUGGET": LET J$CUAL "S"J="SAPPHIRE": L 
=T J$CVAL "16")="PLATINUM" 

226 DIN JCVAL "16") 

236 LET JFLAGZ=VAL "@" 

380 DIN I$CVAL "18",VAL "1@"): RESTORE 
JAL "8886": FOR N=VAL "1" TO VAL "18": R 
=AD I$(NJ: NEXT N 

328 DATA VAL "839",VAL "79",UAL "85",UAL 
po2" VAL “83",VAL "69",UAL "6S",;VAL "32 
fem. “6S",VAL “32",UAL “Z2";UAL "79"5UA 

poo", VAL “82",UAL “68";, UAL “S2";VAL “7 
",YAL "7@6",UVAL "32",UAL "84",UAL "82",U 
= "os"; VAL “6s";UAL “S3",UAL “85",UAL “ 
Bs UAL “6S";VAL “46",VAL “3S2",UAL. “SS, 
VAL "73", UAL "85",UAL "72",UAL "65",VAL 
"86",UVAL "69",UVAL “32",UAL "66",UVAL "69" 
sVAL "67",VAL "73",VAL "77",VAL "69", VAL 

f22",VAL "65", VAL "32°,UAL "22"; UAL, "73 
",UAL "76",VAL "76",UAL "73",UAL "73",UA 
L "78",VAL "65",VAL "73",VAL "82",UAL "6 
3" 


u UI 
Oo) 


i) 


co D WI 


10 Graphic Adventures for the Spectrum 48K 


a29 DATA VAL *46" 
1@@@ LET Q=1: GO SUB VAL "8808": BORDER 
VAL "6": INPUT "““: LET R=UVAL "1": PRINT 
INK VAL "1"3"YOU ARE IN A SMALL HALL. A 
BOVE IS A TRAPDOOR. THERE IS A TABLE IN 


THE CORNER. ";0$CVAL " 
1"33"A PASSAGE LEADS NORTH AND A poo 
R GOES EAST. "CA LADUE 
R LEADS TO THE OPEN TRAPDOOR," AND 


PEEK VAL "6@1861") 

1002 LET NO=VAL "2": LET EA=YAL "3" 

1804 IF OCR) THEN LET FLUG=VAL "1" 

1@@5 IF OCR) THEN GO TO VAL "8788" 

1668 GO SUB VAL "8826" 

1@1@ GO SUB VAL "1816": GO TO VAL "1858" 
1816 PRINT AT VAL "21",VYAL "@O" 5" 

1817 FOR N=YAL “1" TO VAL "10": IF JCNJ= 
VAL "1" THEN NEXT N: GO TO VAL "S688" 
1818 LET C=VAL "@": FOR N=VAL “66@808" TO 
VAL "68817": IF PEEK N THEN LET C=CtVA 
L "1": NEXT N: LET OBJ=C: GO TO VAL "142 
a" 

1019 NEXT N: LET OBJ=C 

1826 GO SUB VAL "3866" 

1621 OVER VAL "@": FOR N=VAL "8" TO VAL 
"12": PRINT AT Ni, VAL "@"35" 

": NEXT N? FOR N=VAL " 
13" TO VAL “Za"s PRINT AT N,VAL “er 5z” 
"2 NEXT N 

1822 PRINT AT VAL "8",UAL "@";3 

1623 LET GH=VAL "@" 

1825 RETURN 

185@ IF OCR)<>VAL “1" AND OBJ<VAL "3" AN 
D NOT PEEK VAL "“68@@@" AND NOT PEEK 68618 
1 AND (C$="GET LADDER" OR C$="GET BROKEN 
LADDER") THEN PRINT ’??"YOU TAKE THE LA 
DDER.": GO SUB 8@5@: POKE VAL "6@088",UA 
L *1": LET O@{VAL “i"3=""2 GO TO VAL "1G 
18" 
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2231 IF (C#="UP" OR C$="U") AND PEEK VAL 
$2121" THEN GO TO VAL "1886" 
1272 IF C$="CLIMB LADDER" AND PEEK YAL " 
22126" AND PEEK VAL “6@6@@@6" THEN PRINT 
“TOU CLIMB THE LADDER": IF NOT PEEK VAL 
32161" THEN POKE VAL "6@8@6",UAL "@": 
==STORE VAL "395@@": FOR N=UVAL "1" TO VAL 
1S": READ CODE: PRINT CHR$ CODE 3: NEXT 
Seer INT .“."3 PRINT = FOR N@UAL "1" TO 
SL "13": READ CODE: PRINT CHR¢ CODE;: N 
*T N: POKE VAL "6@1@1",UAL "1": FOR N=U 
me 61" TO VAL "S99": NEXT N: GO TO VAL “1 
520" 
1872 IF C$="CLIMB LADDER" AND CNOT PEEK 
J6L "6@0@8@" OR NOT PEEK VAL "6@1@06") THE 
® PRINT “YOU CANNOT CLIMB A BROKEN LADD 
eR": GO TO VAL "1818" 
1275 IF C$="GET TABLE" THEN PRINT "THE 
TABLE IS TOO HEAVY TO LIFT.": GO TO VAL 
=1816" 
1288 IF C$="GET LADDER" AND PEEK VAL "6@ 
121" THEN PRINT “YOU CANNOT TAKE THE LA 
DDER ANYMORE. DON’T WORRY; YOU WON? 
T BE NEEDING IT AGAIN.": GO TO VAL "1812 


1883 GO SUB VAL "3186": IF NOT GH THEN 
60 TO VAL "1016" 

18393 GO SUB VAL "3386": GO TO VAL "1018" 
1166 LET Q=2: GO SUB VAL "8@@@": LET R=U 
AL "2": PRINT INK VAL "2"3"YOU ARE IN A 
SMALL BOXROONM., THERE IS A STRANGE F 
BSHY SMELL. " 3;O0$CYAL “2")3"EXITS LEAD SO 
UTH AND WEST." 

1182 LET SO=VAL "1": LET WE=VAL "4" 

1164 IF OCR) THEN LET FLUG=VAL "1" 

1165 IF OCR) THEN GO TO VAL "8786" 

1168 GO SUB VAL "8626" 

1116 GO SUB VAL "18616" 

112@ IF OCRJ<>UYAL "2" AND NOT PEEK VAL " 
60081" AND OBJ<VAL "3S" AND C¢#="GET GLUE" 
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; THEN PRINT "YOU TAKE THE GLUE.": GO SU 
B 8@5@: LET O$C(VAL "2")J="": POKE UAL "6@ 
@@1",VAL "1": GO TO VAL "1118" 
1136 IF C¢="HELP” THEN PRINT “THAT GLUE 
| MIGHT BE USEFUL.": GO TO VAL "1118" 
116@ GO SUB VAL "3186": IF NOT GH THEN 
GO TO VAL "1116" 
1193 GO SUB VAL "93388": GO TO VAL "1118" 
120@ LET Q=S: GO SUB VAL "86@@": LET R=U 
AL "3": PRINT INK VAL "3"5"YOU ARE IN A 


PANELLED ROOM. IT IS PAINTED BRIGHT 
RED, "30$(5);"EXITS ARE DOORS TO 
THE WEST, SOUTH AND NORTH. A STAIRCAS 
E LEADS UPWARDS. THE STAIRS DO NOTLOO 
K UERY SAFE." 
1282 LET NO=VAL "5": LET WE=UAL "1": LET 
SO=VAL "6" 


1264 IF OLR] THEN LET FLUG=UAL *]” 

1205 IF OCR) THEN GO TO VAL "8786" 

1288 GO SUB VAL "8@26" 

1216 GO SUB VAL "1816" 

1226 IF OCRJ<>UAL "S" AND NOT PEEK VAL " 
66084" AND OBJ<VAL "3S" AND C$="GET MATCH 
"THEN PRINT “YOU TAKE THE MATCH. ": GO 

SUB 8@5@: POKE VAL "“6@0@4",VAL "1": LET 

O$(S)="": GO TO VAL "1218" 

1266 IF C$="U" OR C$="UP" THEN IF RND>U 
AL ",?" OR PEEK VAL “6@@18" THEN PRINT 

>"YOU WERE VERY LUCKY TO GET UP.": FOR N 
=VAL "1" TO VAL "33": NEXT N: GO TO VAL 


"1680" ; 
1276 IF C$="U" OR C$="UP" THEN PRINT ?" ; 
THE STAIRS HAVE COLLAPSED. THE COMP = 


UTER HAS FORGOTTEN ALL YOUR PAST ACHIEU “ 

EMENTS AND YOU HAVE LOST ALL YOUR OBJEC 2 

TS.,": FOR N=VAL "68006" TO VAL "68199": . 

POKE N, VAL "@": NEXT N: GO SUB UAL "28": 
LET OBJ=UAL "@": GO TO VAL "1210" 

1275 IF C$="HELP" THEN PRINT “YOU NEED 


De ee | 
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SOMETHING LUCKY TO GET YOU UP THOSE STAI 

=2.": GO TO VAL "1210" 

1282 GO SUB UAL "31@@": IF NOT GH THEN 
GO TO VAL "1219" 

1238 GO SUB UAL "33@@": GO TO UAL "1210" 
13@@ LET Q=6: LET R=4: CLS : GO SUB 80a@ 
= PRINT "YOU ARE IN A LARGE DINING ROOM, 
*;0$(6)3;"EXITS ARE EAST AND NORTH, " 
1322 LET EA=UAL "2": LET NO=UAL "8" 

1384 IF OCR) THEN LET FLUG=UAL "1" 

13@5 IF O(R) THEN GO TO VAL "87a0" 

1328 GO SUB VAL "8020" 

1318 GO SUB VAL "1016" 

132@ IF O(R)<>VAL "6" AND NOT PEEK UAL " 

52225" AND OBJ<UAL "3" AND C$="GET MATCH 

30X" THEN PRINT “YOU TAKE THE MATCHBOX., 
": GO SUB 8@5@: POKE VAL "6@@@5",UAL "1" 
> LET O$(UAL "6")="": GO TO VAL "1310" 
133@ GO SUB VAL "3190": IF NOT GH THEN 

60 TO VAL "1310" 

1389 GO SUB UAL "39388": GO TO UAL "1312" 
1488 LET Q=9: GO SUB UAL "8800": LET R=U 

AL "S": PRINT INK VAL "S"3;"YOU ARE IN A 
CORRIDOR. IT IS VERY LONG. THE PASSA 

SE STRETCHESAWAY TO THE NORTH AND SOUTH. 

"$0$(UAL "9") 

1482 LET SO=UAL "3": LET NO=UAL "11" 
1424 IF OCR) THEN LET FLUG=UAL "1" 

14@5 IF OCR) THEN GO TO VAL "87828" 

1488 GO SUB UAL "8028" 

1418 GO SUB VAL "1016" 

1415 IF OCR)<>UAL "3" AND NOT PEEK UAL " 

682288" AND OBJ<UAL "S" AND C$="GET HAMME 

R" THEN PRINT “YOU TAKE THE HAMMER,": G 

O SUB 8@5@: POKE VAL "6@@@8",VAL "1": LE 

T O$(VAL "S"J="": GO TO VAL "1418" 

1438 GO SUB VAL "9198": IF NOT GH THEN 

GO TO VAL "1418" 

1433 GO SUB VAL "9308": GO TO VAL "1419" 
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15@8 LET Q=4: GO SUB UAL "8@@@": LET R=U 

AL "6": PRINT INK UAL "@";"YOU ARE IN A 

KITCHEN. COBWEBS DANGLE FROM THE CEIL 

ING. "30$(4)3"EXITS LEAD EAST AND 

NORTH, " 

1582 LET NO=VAL "3": LET EA=UAL "12" 

1504 IF OCR) THEN LET FLUG=UAL "1" 

15@5 IF OCR) THEN GO TO UAL “87aa" 

15@8 GO SUB UAL "8222" 

151@ GO SUB VAL "1016" 

154@ IF OCR)<>UAL "4" AND NOT PEEK UAL " 

6@@@3" AND OBJ<UAL "3" AND C$="GET KNIFE 

" THEN PRINT “YOU TAKE THE KNIFE.": GO 

SUB 8858: POKE VAL “6@@@3",UAL "1": LET 

O$(UAL "4"j="": GO TO UAL "1510" 

155@ GO SUB UAL "81@@": IF NOT GH THEN 

GO TO VAL "1519" 

1593 GO SUB UAL "3380": GO TO UAL "1510" 

1688 LET Q=13: GO SUB UAL "8@@@": LET R= 

UAL "2": PRINT INK VAL "2"3"YOU ARE IN 

A LARGE ROOM WITH ONLY ONE EXIT; DOWN 
THERE IS A FIREPLACE SET INTO ONE WA 

LL. THERE IS COAL ON THE FIRE. * 96 

$(VAL "13") 

1601 IF PEEK UAL "6@1@3" THEN PRINT “AN 
OPEN PANEL LEADS EAST.” 

16@2 IF PEEK UAL "6@1@3" THEN LET EA=UA 

L "13" 

1684 IF OCR) THEN LET FLUG=UAL "1" 

16@5 IF OCR) THEN GO TO VAL "87aa" 

16@8 GO SUB UAL "8a2e" 

1618 GO SUB UAL "1016" 

1625 IF (C#="E" OR C¢="EAST") AND PEEK U 

AL "6@182" THEN GO TO UAL “22g0" 

1638 IF C$="D" OR C$="DOWN" THEN PRINT 

"YOU GO DOWN. LUCKILY THE STAIRS HOLD TH 

IS TIME.": FOR N=UAL "1" TO UAL "39": NE 

XT N: GO TO VAL "1280" 

1648 IF (C#="E" OR C$="EAST") AND PEEK U 

AL "60183" THEN GO TO UAL "2200" 
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1656 IF OCRJ<>VAL "13" AND NOT PEEK VAL 

~56012" AND OBJ<YAL "S" AND (C$="GET REC 

=IVER" OR C$="GET RADIO" OR C$="GET RADI 

CO RECEIVER") THEN PRINT “YOU TAKE THE R 

=DIO RECEIVER.": GO SUB 8@5@: LET O$(UAL 
"13")=""2: POKE VAL "68812",VAL "1": GO 

7O VAL "1618" 

1589 POKE VAL "6@182",VYAL “1": GO SUB VA 

— "3186": IF NOT GH THEN GO TO VAL "161 

e 

15393 GO SUB VAL "9388": GO TO VAL "1618" 

1786 LET Q=?7: GO SUB VAL "8868": LET R=U 

SL "8": PRINT INK VAL "3"5"YOU ARE IN T 

FE BILLIARD ROOM. THERE IS A BILLIARD 

TABLE HERE. "“30$(7)3"EXITS LEAD SOUTH; NO 

TH AND WEST." 

1762 LET SO=VAL "4": LET WE=VYAL "14": LE 

7 NO=VAL "15" 

1764 IF OCR) THEN LET FLUG=VAL "1" 

1765 IF OCRJ THEN GO TO VAL "8706" 

1788 GO SUB VAL "8828" 

1716 GO SUB VAL "1816" 

1726 IF OCRJ<>YAL "7?" AND NOT PEEK VAL " 

$2006" AND OBJ<UVAL "S" AND C$="GET BALL" 
THEN PRINT "YOU TAKE THE BALL.": GO SU 

= 8056: LET O$CVAL "?7"J="": POKE VAL "6G 

2¢6",VAL "1": GO TO VAL "1718" 

1725 IF C$="GET TABLE" OR C#="GET BILLIA 

RD TABLE" THEN PRINT "IT IS TOO HEAVY T 

OLIFT.": GO TO VAL "1716" 

1776 GO SUB VAL "3186": IF NOT GH THEN 

60 TO VAL "1716" 

1788 GO SUB VAL "93386": GO TO VAL "1716" 

7896 LET Q=@: GO SUB VAL "88@@": FOR N=U 

SL. "1" TO VAL "16": IF JCNJ=VAL "1" THEN 
NEAT N: GO TO VAL "“S@a@o" 

1861 LET R=VAL "3": PAUSE VAL "188": PRI 

ST INK VAL "4"35"YOU GO INTO A VERY TINY 
ROOM, A LARGE IRON DOOR BARS THE WAY 
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EAST. IT IS “+C€"LOCKED" AND NOT PEEK VA 
L "66144")+C" OPEN: " AND PEEK VAL "68164 
"Jt", SET IN THE WALL ON YOUR LEFT IS A 

GOLDEN TABLET WITH HOLES IN. IT IS TH 
—£ JEWEL TABLET." 

18@2 IF PEEK VAL "66184" THEN LET EA=UA 
L "16" 
1864 IF OCR) THEN LET FLUG=VAL "1" 


1885 IF OCR) THEN GO TO VAL "8788" 
1888 GO SUB VAL "8828" 


1816 GO SUB VAL "1816" 
182@ IF C$="GET TABLET" THEN PRINT "THE 
TABLET IS FIXED TO THE WALL.": GO TO UA 
L "1818" 
183@ IF C$="UNLOCK BOOR" AND NOT PEEK VA 
L "68184" AND PEEK VAL "“6@@@2" THEN PRI 
NT “YOL) UNLOCK THE DOOR,": PRINT “IT SWI 
NGS OPEN.": POKE UAL “6@104",UAL "1": GO 
TO VAL "1819" 
1835 IF C$="D" OR C$="DOWN" THEN GO TO 
VAL "1808" 
1848 IF (C$="E" OR C$="EAST") AND PEEK U 
AL "68184" THEN GO TO UAL "1390" 
1858 IF (C$="E" OR C$="EAST") AND NOT PE 
EK UAL "68184" THEN PRINT “YOU CANNOT W 
ALK THROUGH A LOCKEDDOORS": GO TO VAL “1 
810" 
186@ IF C$="INSERT JEWEL" OR C$="INSERT 
JEWELS" THEN LET F=UAL "@": FOR N=UAL " 
60020" TO VAL "60029": IF PEEK N THEN P 
RINT "THE "3J$(N-UAL "6@819"): PRINT “WH 
ICH YOU WERE CARRYING HAS BEENPLACED IN 
THE JEWEL TABLET.": FOR T=UAL “1" TO UAL 
"158": NEXT T: POKE N,UAL "@"! LET JCN- 
UAL "6@G19"}=VAL "1": CLS +: LET F=UAL "1 
"? NEXT N: GO TO VAL "1888" 


1878 NEXT N: IF F=UAL "1" THEN GO TO UA 
L "1886" 

1889 GO SUB VAL "93186": IF NOT GH THEN 
GO TO VAL "1816" 
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1883 GO SUB UAL "93@8": GO TO UAL "1818" 

1828 LET Q=@: GO SUB UAL "8@@0": LET R=U 

=. "18": PRINT INK UAL "S"3;"YOU ARE IN 

= PRISON CELL. "+CR$CUAL "1") AND 

SOT PEEK VAL "68@21")? "EXITS ARE EAST AN 

B WEST.” 

1882 LET EA=VAL "16": LET WE=UAL "19" 
1984 IF OCR) THEN LET FLUG=vAL "1" 

18@5 IF OCR) THEN GO TO VAL "87280" 

1288 GO SUB VAL "8a20" 

131@ GO SUB UAL "1816" 

1328 IF C$="HELP" THEN PRINT "?OULPKO?. 
TO BE SUCCESSFUL YOU MUST TYPE AN ANAG 

RAM OF THIS WORD INTO THE COMPUTER. ": 
GO TO VAL "1919" 

1925 IF JFLAG2 THEN GO TO UAL "196@" 
193@ RESTORE VAL "9549": LET X$="": FOR 

N=UAL "1" TO UAL "2": READ POKE: LET X$= 
X$+CHR$ POKE: NEXT N 

1935 IF C=-X$ THEN PRINT "YOU SEE THE “ 
:: RESTORE UAL "S558": FOR N=VAL "1" TO 

VAL "7": READ RND: PRINT CHR® RND3: NEXT 
N: PRINT " HANGING FROM THE CEILING 
.": GO TO UAL “1910" 

184@ LET S=UAL "9558": LET G=UAL "2": GO 
SUB UAL "39988" 

1958 IF C$="GET "+X$ THEN PRINT “YOU TA 

KE THE "“3X$: POKE VAL "6@@21",UAL "1"? L 
ET JFLAGZ=VAL "1": LET R$CUAL "1"J="": G 
9 TO VAL "1910" 

1966 IF C$="S" OR C$="SOUTH" THEN GO TO 
UAL "2780" 

197@ IF C$="E" OR C$="EAST" THEN GO TO 
VAL "2588" 

1988 IF C$="W" OR C#="WEST" THEN GO TO 
VAL "18@8" 

1984 IF C$="LOCK DOOR" AND PEEK UAL "6aa 

@2" AND PEEK UAL "601@4" THEN PRINT "YO 
U LOCK THE DOOR,": POKE VAL "68184", UAL 

“@": GO TO UAL "1918" 
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1989 GO SUB VAL "3186": IF NOT GH THEN 

GO TO VAL "1918" 

1933 GO SUB VAL "9386": GO TO VAL "13918" 

2666 LET Q@=8: GO SUB VAL "8808": LET R=U 

AL "11": PRINT INK VAL "@"5"YOU ARE IN 

THE STUDY, FEOM HERE EXITS LEAD IN ALL F 

OUR COMPASS DIRECTIONS, 

"30$(8) 

2062 LET NO=VAL "21"? LET SO=UAL "S": LE 

T EA=VYAL "28": LET WE=VAL "22" 

2064 IF OCR) THEN LET FLUG=VAL "1" 

2005 IF OCR) THEN GO TO VAL "8780" 

2668 GO SUB VAL "8828" 

2018 GO SUB VAL "1816" 

2626 IF NOT PEEK VAL "68887" AND OBJ <VAL 
"3S" AND OCRJ<>UAL "8" AND CC$="GET MAGN 
IFYING GLASS" OR C#="GET GLASS") THEN P 

RINT “YOU TAKE THE MAGNIFYING GLASS,": G 

O SUB 8@5@: LET O$CVUAL "8"J="": POKE VAL 
"6@@G?",UAL "1": GO TO VAL "2618" 

2676 GO SUB VAL "3186": IF NOT GH THEN 
GO TO VAL "28618" 

263935 GO SUB VAL "3388": GO TO VAL "2818" 
2166 LET Q=3: GO SUB VAL "8806": LET R=U 
AL "12": PRINT INK VAL "2"35"YOU ARE IN 
A ROOM WHICH HAS OBUIOUSLY BEEN USED 
FOR STORAGE." ;O0$CUAL "3")3"IN THE MIDDBL 
E OF THE FLOOR TS A "+C" SMASHED” AND PEE 
K VAL "6@165")+C"LARGE" AND NOT PEEK VAL 
"6@1@5"jJ+" STONE SLAB. ": PRINT INK VAL 
"2" 3"THE ONLY EXIT IS WEST." 

2102 LET WE=UVAL "6" 

Z164 IF OCR) THEN LET FUUbSUAL. "1" 

2105 IF OCR) THEN GO TO VAL "8786" 

2188 GO SUB VAL "8826" 

211@ GO SUB VAL "1816" 

212@ IF C#="HELP’ THEN PRINT "THERE 1S 
AN INSCRIPTION ON THE SLAB BUT IT IS TO 
O SMALL. 10 READ." : GO TO VAL "2116" 
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2138 IF OCR)<>UVAL "3" AND NOT PEEK VAL " 
68002" AND OBJ<YAL "3" AND (C$="GET KEY" 
OR C$="GET IRON KEY") THEN PRINT "YOU 


TAKE THE KEY.": GO SUB 8@5@: LET O$(UAL 
"3"jJ="": POKE VAL “6@@02",UAL "1": GO TO 
YAL "2116" 


215@ LET S=UVAL "93566": LET G=VYAL "16": G 
So SUB VAL "3966" 

2160 IF C¢="USE "+X THEN RESTORE VAL " 
$576": PRINT "YOU READ THE WRITING. IT S 
ATS 7"3: FOR N=VAL "1" TO VAL "13": RE 
AD PEEK: PRINT CHR® PEEK3;: NEXT N? PRINT 

"?"3 GO TO YAL "2116" 
2165 RESTORE VAL "3586": LET X$="": FOR 


N=UVAL "1" TO VAL "18": READ xX: LET X$=K$ 
*CHRS X:? NEXT N 


2166 IF C#=xX$ AND PEEK VAL "6@@@8" THEN 


RESTORE VAL "3576": PRINT "YOU "3: FOR 
N=VAL "1" TO VAL "139": READ X: PRINT CHR 
S$ X3? NEXT N? PRINT "."? POKE VAL "60185 


",VAL "1": PRINT "YOU SEE THE “3J#CUAL " 
1"): GO TO VAL "2118" 

2167 IF C#=x$ THEN PRINT "YOU HAVE NO I 
MPLEMENT TO SMASH THE ROCK WITH. ": GO T 
SO VAL "2118" 

217@ IF NOT PEEK VAL “6@@82@" AND C#="GET 
PTtJeCUAL “T*, TO WAL °4°2 AND PEEK VAL 
"661@5" THEN PRINT "YOU TAKE THE "3J$(CU 
AL "1"): POKE VAL "6@@2@8",VYAL "1": GO TO 

VAL "2116" 

2196 GO SUB VAL "31@@": [TF NOT GH THEN 
GO TO VAL "2116" 

2193 GO SUB VAL "3386": GO TO VAL "2118" 
2206 LET Q=@: GO SUB VAL "8@@@": LET R=VU 
AL "13": FOR N=YAL "1" TO VAL "1868": NEX 
TN? PRINT INK VAL "1"3"YOU ARE IN A DI 
SMAL BURIAL CHAMBER. EXITS ARE WEST 
AND SOUTH. THERE IS A COFFIN IN 

ONE CORNER. A SIGN SAYS:? IN THISCOFFIN 


19 


20 Graphic Adventures for the Spectrum 48K 


LIES THE "3J$CVYAL "4")? "AND COUNT DRACUL 

A, DO NOT OPEN THIS COFFIN UNPREPARED. ? 
2262 LET SO=VAL "17": LET WE=YAL "7?" 

2284 IF OCR) THEN LET FLUG=UVAL "1" 

2205 IF OCR) THEN GO TO VAL "8786" 

2288 GO SUB VAL "8828" 

221@ GO SUB VAL "1816" 

2220 ]F C$="HELP" THEN PRINT "YOU MUST 
KILL DRACULA." : GO TO VAL "2216" 

2258 IF NOT PEEK VAL "68186" AND C¢#="OPE 

N COFFIN" THEN PRINT "YOU TENTATIVELY O 
PEN THE COFFIN.DRACULA RISES TO A SEATED 

POSITION. WHAT NOW?": GO SUB VAL 

"1016": GO TO VAL "3788" 

2266 IF NOT PEEK VAL "68623" AND C$="GET 
DIAMOND" THEN PRINT “YOU TAKE THE DIAN 
OND," : POKE VAL "66023",VAL "1": GO TO VU 
AL. "2218" 

2289 GO SUB VAL "3186": IF NOT GH THEN 
GO TO VAL "2216" 

2233 GO SUB VAL "3388": GO TO VAL "2218" 
2366 LET Q=@: GO SUB VAL "8880": LET R=U 

AL "14": PRINT INK VAL "3"5" YOU ARE IN 

A SERVANTS? ROOM, EXITS ARE NORTH AND 
EAST." 

2302 LET NO=VAL "18": LET EA=VAL "8" 

2384 IF OCRJ THEN LET FLUG=VAL "1" 

23@5 IF OCR) THEN GO TO VAL "8788" 

2308 GO SUB VAL "8828" 

2316 IF PEEK VAL "6618?" THEN PRINT AT 

VAL "S",YAL "B" ;0$¢CYVAL "18") 

2311 GO SUB VAL "1816" 

2386 GO SUB VAL "3186": IF NOT GH THEN 

GO JO VAL "2318" 

2393 GO SUB VAL "93388": GO TO VAL "2318" 

2406 LET QG=@: GO SUB VAL "8886": LET R=V 

AL "15": PRINT INK VAL "4"3"YOU ARE IN 

THE SERVANTS? DINING ROOM. A CRACK IN TH 
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& CEILING SUGGESTS A TRAPDOOR, EXITS 

ARE EAST AND SOUTH.": PRINT CRECYAL "5" 
2 AND PEEK VAL "60188" 5 

2462 LET EA=VAL "22": LET SO=UVAL "8" 
2464 IF OCRJ THEN LET FLUG=VAL "1" 

2485 IF OCRJ THEN GO TO VAL "8786" 

2408 GO SUB VAL "8828" 

2418 GO SUB VAL "1616" 

24286 IF C$="HELP" THEN PRINT "MXIEANELA 

LW. AN ANAGRAM; WILL SUGGEST FIRST STA 
SE FOR GETTING THROUGH TRAPDOOR.": GO TO 
VAL "2418" 

245@ LET S=VAL "9595": LET G=VAL "12": G 

6 SUB VAL "39980" | 


ma60 IF C$=X¢ THEN PRINT "YOU SEE “3: F 
OR N=VAL "1" TO VAL "11": READ ASR: PRIN 
T CHR ASR3? NEXT N:? PRINT ".": GO TO VA 
eS "2418" 


247@ LET S=VAL "3686": LET G=UAL "18": G 
0 SUB VAL "3988" 
2488 IF C$=xX$ THEN PRINT "SILENTLY THE 


TRAPDOOR OPENS. = SOME STAIRS GLIDE DOW 
=” > POKE VAL "BYI@B", VAL "1": GO TO VAL 
"2418" 


2485 IF CC$="U" OR C$="UP") AND PEEK VAL 
"68188" THEN GO TO VAL "3280" 

2438 GO SUB VAL "3168": IF NOT GH THEN 

GO TO VAL "2418" 

24339 GO SUB VAL "3386": GO TO VAL "2418" 

2506 LET Q=18: GO SUB VAL "8800": LET R= 

YAL "16": PRINT INK VAL "@"3"THIS ROOM 

APPEARS TO HAVE BEEN USED FOR WOODWORK. 
"j0¢$CVAL "18"3)3"THE ONLY E 

BLT TS West...” 

2502 LET WE=UVAL "18" 

2564 IF OCR) THEN LET FLUG=VAL "1" 

2585 IF OCRJ THEN GO TO VAL "8786" 

2508 GO SUB VAL "8826" 

251@ GO SUB VAL "1616" 
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25268 IF OCRJ<>UYAL "16" AND NOT PEEK VAL 
"68063" AND OBJ <YAL "3S" AND CC$="GET STA 
KE" OR C$="GET WOODEN STAKE") THEN PRIN 
T "YOU TAKE THE STAKE.": GO SUB 8@5@: LE 
T O$CVUAL "18")="": POKE VAL "688@39", VAL 
"1": GO TO VAL “Zale” 
2589 GO SUB VAL "3146": IF NOT GH THEN 
GO JO VAL “Zeta” 
2593 DATA VAL "85",UAL "78",UVAL "87", UAL 
"S82", VAL “65",UAL *8@",UAL “S2"; UAL “77 
"sUAL "Sh", UAL “27F",UAL "77"°sUAL “BS" 
2593 GO SUB VAL "9386": GO TO VAL "2518" 
2660 LET Q=@: GO SUB VAL "8888": LET R=U 
AL "17": PRINT “YOU ARE IN A ROOM WHICH 
CONTAINSA CHEST OF DRAWERS. EXIT:NORTH." 
IF PEEK VAL "68612" AND NOT PEEK VAL " 
66126" THEN PRINT "YOUR RADIO RECEIVER 
IS BEEPING LOUDLY, IT MAKES MORE NOISE 
WHENPOINTED UPWARDS, " 
2642 LET NO=WAL °13" 
2584 IF OCR) THEN LET FLUG=VAL "1" 
2665 IF OCR) THEN GO TO VAL "8786" 
2668 GO SUB VAL "8626" 
261@ GO SUB VAL "1616" 
2625 IF CC$="OPEN DRAWER" OR C$="OPEN DR 
AWERS") THEN PRINT AT 18;2635"?": PRINT 
AT 8,83: PRINT "YOU OPEN THE DRAWER. "?: P 
OKE VAL "66107",UAL "1": PRINT C"IN THE 
DRAWER IS A KEY." AND NOT PEEK UAL "6@@] 
1° i* FOR N=UAL. "]" TO VAL "SS"? NEAT Ns 
GO TO VAL "2616" 
2626 IF OC(R)<>YAL "12" AND NOT PEEK VAL 
"66611" AND OBJ<YAL "S" AND C$="GET KEY" 
AND PEEK VAL "68187" THEN PRINT “YOU T 
AKE THE KEY.": GO SUB 8@5@: LET OBJ=OBJ+ 
UAL "1": LET O$CVAL "12")="": POKE VAL " 
60611",VAL "1": POKE VAL "6@1907",VAL "@" 
GO TO VAL "2618" 
2636 IF C$="HELP" THEN PRINT “AN ANAGRA 


House of Adventure 


hr: GO TO THE ROOM NEXT TO THE JEWEL TABL 

—T AND TYPE >HELP?, WHAT IT SAYS THER 

= IS ALSO OF RELEVANCE HERE.": GO TO U 

AL "2610" 

2640 LET S=VAL "S54@": LET G=UAL "27": GO 
SUB VAL "S39aa" 

2658 IF C$=xX$ THEN PRINT "YOU SEE THE " 
sJ$( UAL "3"): GO TO VAL "2619" 

2668 IF NOT PEEK VAL "69922" AND C$="GET 
"+J$CUAL "3", TO VAL "S") THEN PRINT " 

YOU TAKE THE ";J$CUAL "3"): POKE VAL "68 
128",VAL "1": POKE VAL "69922",UAL "1": 

GO TO VAL "2619" 

2689 GO SUB UAL "3186": IF NOT GH THEN 

GO TO VAL "2610" 

2633 GO SUB VAL "93aa@": GO TO VAL "2610" 

2706 LET Q=11: GO SUB VAL "8808": LET R= 

YAL "18": PRINT INK VAL "1"3"YOU ARE IN 
A SHORT CORRIDOR, TO THE NORTH IS A 
"+C"LOCKED " AND NOT PEEK VAL "6@1989")+" 

DOOR.": PRINT "ANOTHER DOOR IS TO THE SO 

UTH,. "30$(11)+C" THROUGH THE NORTH DOOR 


A STAIRCASE LEADS DOWN," AND P 
EEK VAL "6@1@9") 


Braz LET SO=UAL “14°: IF PEEK UAL “6195 

> THEN. LET NO=UAL "19" 

2/704 IF Of) THEN LET FLUG=UAL "1" 

2705 IF OCR) THEN GO TO VAL "8786" 

2708 GO SUB VAL "8826" 

2718 GO SUB VAL "1616" 

2738 IF OCRJ<>YAL "11" AND NOT PEEK VAL 

"66016" AND OBJ<VAL "3S" AND (C$="GET LUC 

KY CHARM" OR C$="GET CHARM") THEN PRINT 
"YOU TAKE THE LUCKY CHARM." : GO SUB 885 

M2 LET OBJ=ORI1UAL "1"? LET OSC(UAL *11"3 

=""r POKE VAL "66@1@8",UAL "1": GO TO VAL 
"2718" 

2748 IF C¢$="UNLOCK DOOR" AND PEEK VAL "6 

@@11" AND NOT PEEK VAL "601839" THEN PRI 
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NT "YOU UNLOCK THE DOOR, IT SWINGS WIDE 
OPEN WITH A CREAK TO REVEALA STAIRCASE 

GOING POWN.": POKE VAL "6@1@9",UAL "1": 
GO TO VAL "2716" 

2758 IF (C$="D" OR C$="POWN") AND PEEK U 

AL "6@1@3" THEN GO TO VAL "2888" 


27893 GO SUB VAL "9108": IF NOT GH THEN 
GO TO VAL "2716" 


2739 GO SUB VAL "39386": GO TO VAL "2718" 
260@ LET Q@=14: GO SUB VAL "8800": LET R= 
VAL "13": PRINT INK VAL "2" 5RS$CUAL "2") 
;"YOU ARE IN A SLIMY CAVE. EXITS LEAD E 
AST; WEST AND NORTH, A STAIRCASE LE 
ADS UP. "SO$CUAL "14") 

2802 LET EA=VAL "24": LET NO=UAL "25": L 
ET WE=VAL "26" 

2804 IF OCR) THEN LET FLUG=VAL "1" 

28608 GO SUB VAL "8828" 

281@ GO SUB VAL "1616" 

2826 IF OCRJ<>YAL "14" AND NOT PEEK VAL 
"66613" AND OBJ<YAL "3S" AND C$="GET BATT 
ERIES" AND OBJ<YAL "S" THEN PRINT "YOU 
TAKE THE BATTERIES. ": GO SUB 885@: LET O 
BJ=OBJ+UAL "1": LET O$C(UAL “"14")="": POK 
E VAL "66813",UAL "1": GO TO VAL "2816" 
2868 IF C¢$="U" OR C$="UP" THEN GO TO VA 
L "2766" 

2889 GO SUB VAL "31868": IF NOT GH THEN 
GO TO VAL "2816" 


28939 GO SUB VAL "3366": GO TO VAL "2816" 
29366 LET Q=15: GO SUB VAL "8806": LET R= 

VAL "26": PRINT INK VAL "3"3"YOU ARE IN 
A LARGE BALLROOM, CHANDEL TERS HANG F 

ROM THE CEILING. "3;0(UAL "15")3"EXITS A 

RE NORTH AND WEST," 

2362 LET WE=VAL “11°: LET MD=VAL “2)" 
2564 IF OCS] THEN LET FLUG=YAL "i" 

29368 GO SUB YAL "8828" 

231@ GO SUB VAL "1616" 
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292@ IF O(R)<>VAL "15" AND NOT PEEK VAL 
"60214" AND OBJ<UAL "3" AND C$="GET PLAN 

K" THEN PRINT "YOU TAKE THE PLANK.": GO 
SUB 8050: LET OBJ=OBJ+UAL "1": POKE UAL 
"60014",UAL "1": LET O$(UAL "15")="": G 

9 TO UAL "2918" 

2983 GO SUB VAL "9108": IF NOT GH THEN 

GO TO VAL "2918" 

2993 GO SUB VAL "3398": GO TO UAL "2910" 

3000 LET Q=16: GO SUB VAL "8220": LET R= 

VAL "21": PRINT INK UAL "4"3"YOU ARE IN 
A SMALL ROOM WITH A WOODEN FLOOR. IT I 

S EMPTY"+C"." AND O$C(VAL "16")=""): PRIN 

T INK VAL “4"3;0$CUAL "16")3"EXITS ARE E 

AST AND SOUTH." 

3882 LET SO=VAL "11": LET EA=UAL "20" 

3004 IF OCR) THEN LET FLUG=UAL "1" 

3288 GO SUB VAL "8920" 

3218 GO SUB VAL "1016" 

3028 IF OC(R)<>VAL "16" AND OBJ<UAL "3S" A 

ND NOT PEEK VAL "6@@15" AND (C$="GET IRO 

N SPADE" OR C$="GET SPADE") THEN PRINT 
"YOU TAKE THE SPADE.": GO SUB 8@5@: POKE 
VAL "6@@15",UAL "1": LET OBJ=OBJ+UAL "1 
": LET O$(UAL "16")="": GO TO UAL "3@18" 


3982 GO SUB UAL "91@@": IF NOT GH THEN 
GO TO VAL "3618" 


3899 GO SUB VAL "3386": GO TO VAL "3818" 

3186 LET Q=17: GO SUB VAL "8806": LET R= 

YAL "22": PRINT INK VAL "1" 3"YOU ARE IN 
AN EAST/“WEST PASSAGE." ;0$CUAL "17") 

Be22 LET EASVAL *11"5 LET WE=UAL "15" 

Bi64¢ IF OCR) THEN LET FLUG=UVAL "1" 

31808 GO SUB VAL "8826" 

3116 GO SUB VAL "1816" 

e120 IF OCRJ<>VAL “17" AND OBJ<VAL “3” A 

ND NOT PEEK VAL "6@@16" AND C$="GET TORC 
H" THEN PRINT “YOU TAKE THE TORCH. ": GO 
SUB 865@: POKE VAL “6@@16",UAL "1": LET 


OBJ=OBJtUAL "1": LET O$(UAL “17"J="": G 
9 TO VAL "3110" 
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3189 GO SUB VAL "3186": IF NOT GH THEN 
GO TO VAL "3118" 
31393 GO SUB VAL "93388": GO TO VAL "3118" 
3206 LET Q=@: GO SUB VAL "8886": LET R=U 
AL "23": PRINT INK VAL "2"5"YOU ARE IN 
A ROOM WHICH LOOKS LIKE AN ATTIC. THE 
ONLY EXIT IS DOWNWARDS. THERE IS AD 
Fer FIT. dn THE Cenrse OF THE ROCM, “sk 
SCUAL “SJ 
3284 IF OCR} THEN LET FPLUG=YAL "1" 
3208 GO SUB VAL "88628" 
321@ GO SUB VAL "1816" 
3228 IF C$="D" OR C$="POWN" THEN GO TO 
VAL "24860" 
3225 IF C$="GET OPAL" THEN PRINT "IJ CAN 
N@T REACH IT..": GO TO VAL "3210" 
3236 LET S=VAL "3618": LET G=VAL "13": G 
O SUB VAL "39986": IF C$=xX¢$ THEN LET RSC 
VAL "3")=""2: LET S=UAL "93615": POKE VAL 
"68109",UAL "1": LET G=VAL "13": GO SUB 
JAL "3988": PRINT "YOU ARE FALLING. ": FO 
R N=VYAL "1" TO VAL "146": NEXT N? PRINT 
C"ON THE WAY YOU "“+xX$t"," AND NOT PEEK VU 
AL "6@824"): POKE VAL "66824",YAL "1": F 
OR N=VAL "1" TO VAL "339": NEXT N?: LET S= 
VAL "93626": LET G=VAL "18": GO SUB VAL " 
39986": PRINT "YOU "3x%¢$5",": FOR N=YAL "1 
" TO VAL "S39": NEXT N? GO TO VAL "3360" 
32893 GO SUB VAL "3186": IF NOT GH THEN 
GO JO VAL “SZz1e" 
3299 GO SUB JAL "93388": GC TO VAL "3216" 
3388 LET Q=@: GO SUB VAL "8806": LET R=U 
AL "24": PRINT “YOU ARE IN A DAMP CAVE. 
YOU SEE A MATTRESS. EXITS ARE 
EAST "+C"(BLOCKED BY EARTH)" AND NOT PEE 
K VAL "6@6118")+C"CBLOCKED BY ROCKS)" AND 
PEEK VAL "6@11@" AND NOT PEEK VAL "6@1] 
1"3: PRINT "AND WEST." 
3302 LET WE=VAL "19": IF PEEK VAL "6@111 
" THEN LET EASUAL "22" 


IF OCR) THEN LET FLUG=UAL "1" 

IF OCR) THEN GO TO VAL "8798" 

GO SUB VAL "8822" 

GO SUB VAL "1016" 

IF C$="GET MATTRESS" THEN PRINT “Y 

OU CANNOT TAKE THE MATTRESS.": GO TO VAL 
*3319" 

3338 IF (C$="E" OR -C#="EAST") AND CNOT P 

EEK VAL "68118" OR NOT PEEK VAL "6@111") 
THEN PRINT "THE WAY EAST IS BLOCKED.": 
GO TO VAL "3318" 

3340 LET S=UAL "9625": LET G=UAL "3": GO 
SUB VAL "S988": IF C#=X$ AND PEEK UAL " 

66215" THEN PRINT "AFTER A LOT OF HARD 

WORK, YOU SUCCEED IN SHIFTING THE EART 

H.": POKE VAL "6@11@",UAL "1": FOR N=VAL 
"1" TO VAL "SS": NEXT N: GO TO VAL "33a 

g" 

335@ LET S=VAL "9580": LET G=UAL "19": G 

O SUB VAL "9998": IF C$=xX¢$+"S" AND PEEK 

UAL "6@@@8" THEN PRINT “THE ROCKS HAVE 

BEEN DESTROYED. ": POKE VAL "6@111",UAL " 
1": FOR N=VAL "1" TO VAL "3939": NEXT Ni G 

O TO VAL "3300" 

3368 IF (C$="E" OR C#="EAST") AND PEEK U 

AL "6@111" THEN GO TO VAL "36aa" 

3389 GO SUB VAL "391@@": IF NOT GH THEN 

GO TO VAL "3318" 

3339 GO SUB UAL "39388": GO TO UAL "3310" 
3488 LET Q=@: IF NOT PEEK 68112 THEN GO 
SUB VAL "8@@@": LET R=VAL "25": IF NOT 
PEEK VAL "68112" THEN PRINT “IT IS PITC 

H BLACK, YOU CAN SEE NOTHING ATALL." 

3402 LET SO=UAL "19": IF PEEK UAL "68112 
" THEN LET NO=UAL "28" 

3484 IF OCR) THEN LET FLUG=UAL "1" 

34@5 IF OCR) THEN GO TO UAL "87a0" 

34@6 IF PEEK VAL "6@112" THEN CLS : LET 
SO=19: LET R=25: GO SUB 8@@@: PRINT "YO 

LU ARE IN A LARGE CAVERN. ACROSS THE 
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IDDLE RUNS A SEEMINGLY IMPASSAB 
iE CHASH. “+ CRSCUAL "4" AND PEEK VA 
66114"): PRINT "EXIT"+C"S ARE” AND PE 


JAL "6@114"3+C" IS" AND NOT PEEK UAL 

1] +" SOUTH"+C" AND NORTH" AND PEEK 
JAL "66114") 

34@/7 IF PEEK 66112 THEN LET NO=28 

3468 LET SO=193: GO SUB VAL "8820" 

3416 GO SUB VAL "1016" 

3412 IF C$="HELP" THEN PRINT "USE YOUR 

GREY MATTER.": GO TO VAL "3418" 

3415 IF C$="LIGHT TORCH" AND NOT PEEK VA 

L "66616" THEN PRINT “YOU ARE NOT CARRY 
ING IT.": GO TO VAL "3418" 

342@ IF C#="LIGHT TORCH" AND NOT PEEK VA 

i "60113" THEN PRINT “YOU TRY TO LIGHT 


THE TORCH BUT NOTHING HAPPENS.": GO TO 
VAL "SFla” 


34938 LET S=VAL "93638": LET G=VAL "16": G 
O SUB VAL "39986": IF C$=xX$ AND PEEK VAL 
"60613" AND PEEK VAL "66616" THEN PRINT 
"O.K,": POKE VAL "6@113",VAL "1": GO TO 
JAL "34@6" 
3446 LET S=VAL "S646": LET G=YAL "3": GO 
SUB VAL "9986": IF C$=xX$ AND PEEK VAL " 
58614" AND PEEK VAL "6@112" THEN PRINT 
"YOU MANOEUVRE IT INTO POSITION. "=: POKE 
JAL "66114",YAL "1": POKE 660614,@: FOR N 
=VAL "1" TO VAL "339": NEXT N:? GO JO VAL 
"3488" 
345@ IF C¢="LIGHT TORCH" AND PEEK UAL "6 
@@13" THEN PRINT "THE TORCH LIGHTS. "=: P 
OKE VAL "6@112",UAL “1": FOR N=U¥AL "1" T 
O VAL "939": NEXT N:? GO TO VAL "3466" 


3478 IF C(C$="N" OR C$="NORTH") AND PEEK 
UAL "68114" THEN GO TO VAL "3788" 


3483 GO SUB VAL "3146": IF NOT GH THEN 
GO TO VAL "3416" 
3433 GO SUB VAL "3386": GO TO VAL "3418" 


4 J 


LET Q=@: GO SUB VAL "8806": LET R=U 

"26": PRINT INK VAL "1"3"YOU ARE IN 

LARGE CAVE WITH STALACTITES HANGING 

ie THE CEILING, EXITS ARE TO JRE & 

TJ AND NORTH.": IF NOT PEEK YAL "66115 

SHEN PRINT “THERE IS A MASSIVE 

FIRE-BREATHING DRAGON BLOCKING T 

ROUTE NORTH. HE IS WEARING A COAT," 

m IF PEEK VAL "6@115" THEN PRINT “TR 

—£ IS A DEAD DRAGON NEAR THE NORTH EXIT 

. IT IS WEARING A COATWHICH HAS SEVERAL 

POCKETS." 

So92 LET EA=VAL "19": IF PEEK VAL "60115 

® THEN LET NO=VAL "29" 

3584 IF OCR) THEN LET FLUG=VAL "1" 

3588 GO SUB VAL "8426" 

3516 GO SUB VAL "18616" 

353@ IF C$="KILL DRAGON" AND PEEK VAL "6 

2003" THEN PRINT ?"WITH ONE THRUST YOU 

SLAY THE MIGHTY DRAGON. HE DROPS DEAD 

-"2 FOR N=VAL "1" TO VAL "180": NEXT N: 

POKE VAL "6@115",VAL "1": GO TO VAL "35@ 

g" 

354@ IF C$="KILL DRAGON" AND NOT PEEK VA 

L_ "66863" THEN PRINT ?"YOU HAVE NO WEAP 

ON TO KILL WITH.": GO TO VAL "3516" 

355@ LET S=UVAL "39656": LET G=UAL "14": G 

O SUB VAL "39986" 

3566 IF C¢#=x¢$ AND PEEK VAL “6@115" AND N 

ef PEEK UAL “6@@25" THEN PRINT ?* YOU SE 

E THE "3J$CVAL "6"): PRINT “YOU TAKE THE 
"SJ$CUYAL "6"): POKE VAL "“68@25",VAL "1" 
: GO TO YAL “Sala” 

357@ IF (C$="N" OR C$="NORTH") AND PEEK 

VAL "66115" THEN GO TO VAL "3888" 

35893 GO SUB VAL "3146": IF NOT GH THEN 

GO TO VAL "3518" 

3599 GO SUB VAL "9388": GO TO VAL "3518" 

36@6 LET G=18: GO SUB VAL "8866": LET R= 
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UAL "22": PRINT INK VAL "3"3"YOU ARE IN 
AN EGYPTIAN BURIAL CHAMBER. A LARGE S 

ARCOPHAGUS IS IN THE MIDDLE.": PRINT O$C¢ 

VAL "18") 

36@1 IF PEEK UAL "64116" THEN PRINT IN 

K UAL "4"3"THE SARCOPHAGUS IS OPEN. INSI 

DE IS A MuMnyY," 

3602 LET WE=UAL "24" 

3684 IF OCR) THEN LET FLUG=VAL "1" 

3685 IF OCR) THEN GO TO VAL "87a0" 

3688 GO SUB VAL "8a20" 

3612 GO SUB UAL "1916" 

3615 IF C$="HELP" THEN PRINT "WHAT DO Y 

GU DO WITH PRESENTS?": GO TO VAL "3618" 

3617 IF OCR)<>VAL "18" AND NOT PEEK VAL 
“6@@17" AND OBJ<YAL "S" AND C$="GET MIRR 

OR" THEN PRINT "YOU TAKE THE MIRROR. ": 

GO SUB 8@5@: POKE VAL "6@@17",VAL "1": L 

ET OBJ=OBJ+UAL "1": LET O$CUAL "18")=""3 
GO TO VAL "3618" 

3638 IF C$="OPEN SARCOPHAGUS" THEN PRIN 
T “YOU OPEN THE SARCOPHAGUS. ": POKE UAL 


"68116",YVAL "1": FOR N=VAL "1" TO VAL "3 
3": NEXT N: GO TO VAL "36a6" 


364@ LET S=VAL "2593": LET G=VAL "12": G 
9 SUB VAL "39986" 
3656 IF C$=X$ AND PEEK VAL "66116" THEN 


PRINT "O,fisaes”* POR NEURAL "1" TO VAL * 
93": NEXT N? PRINT "YOU SEE THE "3J$CUAL 
we "WHICH IS (NSIDE. ©* FOR NeVAL. *1" 


TO UAL "99": NEXT N: PRINT "YOU TAKE TH 

E "3J$(UAL "2"): POKE UAL "6@826",UAL “1 
GO TO VAL "3618" 

3668 IF C#="KILL MUMMY" THEN PRINT "THE 

MUMMY IS ALREADY DEAD.": GO TO UAL "361 

a 

3683 GO SUB UAL "91@@": IF NOT GH THEN 

GO TO VAL "3618" 

3639 GO SUB UAL "9328": GO TO UAL "3610" 


3788 LET Q=@: GO SUB VAL "88@@0": LET R=VU 
SL "28": PRINT INK VAL "2"3"YGU ARE IN 
AT APPEARS TO BE A STONE AGE BATHROO 
A STONE - BATH IS IN THE CENTRE. EXIT 

": PRINT C"THE BATH IS FULL OF THIC 
BLACK LIGUID." AND NOT PEEK VAL "6@117 


3761 IF PEEK VAL "68117?" THEN PRINT "TH 
E BATH IS EMPTY.": IF NOT PEEK VAL "6@11 
' THEN PRINT “AT THE BOTTOM: "3J4$CUAL 
es") 

37@2 LET SO=VAL "25" 

3704 IF OCR) THEN LET FLUG=VAL "1" 
37@5 IF OCR) THEN GO TO VAL "8788" 
3768 GO SUB VAL "8a28" 

371@ GO SUB VAL "1016" 

3730 LET S=UAL "9699": LET G=UVAL "11": G 
oO SUB VAL "3980" 

3740 IF C$=X¢ AND NOT PEEK VAL "6@117" T 
HEN LET S=VAL "S698": LET G=YVAL "18": G 
9 SUB VAL "9986": PRINT X$3" OUT.": FOR 
N=UAL "1" TO VAL "99": NEXT N: POKE VAL 
"6@117",VAL "1": GO TO VAL "3788" 
3758 IF NOT PEEK VAL "6@027" AND (C#="GE 
T SILUER" OR C$="GET NUGGET" OR C$="GET 
SILUER NUGGET"}3 THEN PRINT “YOU TAKE TH 


-— SILUER NUGGET.": POKE UAL "68827", VAL 
"i": POKE VAL "6@118",VAL “1": GO TO VAL 
= "3718" 


3789 GO SUB VAL "3166": IF NOT GH THEN 
GO TO VAL "3716" 
3733 GO SUB VAL "39386": GO TO VAL "3716" 
3808 LET Q=@: GO SUB VAL "88006": LET R=U 
a "25"? PRINT “TOU ARE IN A STONE AGE C 
OMPUTER ROOM. THERE IS A 2X-SPECTRUM IN 
THE CORNER, CONNECTED TO A MONITOR. 
EAL] *SOUTH..” 

Mm 3802 LET SO=YAL "26" 
3884 IF OCR) THEN LET FLUG=VAL "1" 

® 3805 IF OCR) THEN GO TO VAL "8700" 
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3888 GO SUB VAL "8826" 

3818 GO SUB VAL "1816" 

3826 IF C$="HELP" THEN PRINT “ANOTHER A 
NAGRAM, KSCOLOAERTEN ISTHE COMMAND YOU W 
ANT. C3 WORDSJ.": GO TO VAL "3818" 

384@ LET S=VAL “9693": LET G=VAL "14": G 
9 SUB VAL "S986": IF C$=xX$ THEN LET S=U 
AL "9694": LET G=VAL "28": GO SUB VAL "3 
3@6": PRINT “IT SAYS:": PRINT "— "3X3", 
": GO TO VAL "3818" 

3856 LET S=VAL "93696": LET G=YAL "11": G 
0 SUB VAL "9986": IF C$=X$ THEN PRINT "“ 
0,6." 2 FOR N&UAL "1" 7O YRL "Se": BEAT MN 
* PRINT “SUDDENLY A PIECE OF "“3J$CUAL "1 
6" J? PRINT “APPEARS. "= PRINT “YOU TAKE T 
HE "3J$CYVAL "16"): POKE VAL “668239",VAL 


"T": GO TQ VAL_"3818" 
33868 IF C$="GET SPECTRUM" OR C$="GET MON 


TTOR" THEN PRINT “GET OFF& THEY BELONG 
TO Meg": GO TO VAL “ssie" 

3883 GO SUB VAL "31@6": IF NOT GH THEN 
GO TO VAL "3818" 

3899 GO SUB VAL "93386": GO TO VAL "3818" 
5866 CLS 

3801 BORDER 2: PAPER 2: CLS 

9862 PRINT AT 18,93 PAPER 73" 


3@1@ LET AS="W ELL DONE 8 YOU 
HAVE SUCCESSFULLY SOLVED THE ADVENTURE. 
THE JEWEL TABLET, ACTIVATED BY THE PRESC 
ENCE OF THE TEN JEWELS, SWINGS WIDE OPEN 
3011 OVER 1: FOR X=7@ TO 193: BEEP .@@5, 
RNDX3@: PLOT *,96: DRAW CCX-7@)*2,.873178 
723J-X%5 79: NEXT &X 

5@12 FOR x=7@ TO 1933: BEEP .@@5,RNDX3@: 
PLOT *,86: DRAW (CX-7@)X2,8731787)-X,-86 
> NEXT X 

5813 OVER @ 

5@13 INK 1: PAPER 7? 


@ GO SUB 5988 

LET Ag=" INSIDE IS AM 

IUE HOARD OF TREASURE.......... 

CONGRATULATIONS S® 

2202 * 

4@ GO SUB 59a0 

5@ FOR N=@ TO 69: BEEP .@@5,N: NEXT N:? 
so To 5040 

5S2@ FOR P=1 TO LEN As-14 

$881 PRINT AT 18,9;As(P TO P+14) 

5802 BEEP .@5,RNDX3@: NEXT P 

5383 RETURN 

6222 BORDER 1: PAPER 7: CLS 

6821 OVER 1: INK 1: FOR X=@ TO 255: BEEP 
.89805,RNDX*3@: PLOT X,@: DRAW 255-2xkx,175 

> NEXT X: FOR Y=175 TO @ STEP -1: BEEP 


2@5,RNDX3@: PLOT @,Y: DRAW 255, 175-2xY: 
NEXT Y: QUER @ 

6882 PRINT AT 18,7; FLASH 1; PAPER 2; IN 
K 23"HOUSE OF ADUENTURE"3AT 11,73 INUERS 
E 13; FLASH 1; PAPER 23; INK 73"HOUSE OF A 
DUENTURE" 

6@@3 INK @: FOR N=1 TO 69: BEEP .@08,N: 
NEXT N? PRINT #@;"PRESS ENTER TO CONTINU 
Te wis xe oe ": PAUSE @: RETURN 

8000 CLS : LET NO=VAL "@": INK UAL "1": 
LET SO=UAL "@": LET EA=UAL "@": LET WE=U 
AL "@" 

8001 IF Q<>@ THEN IF O$(Q,1)=" " THEN 
LET Q=6 

8019 PLOT VAL "176",UAL "78": DRAW UAL " 
78",UAL "@": DRAW UAL "@",-UAL "S5": DRA 
WwW -UAL "76",VAL "@": DRAW VAL "@",UVAL "5 
en 

8@12 INK UAL "Q" 

8215 RETURN 

8@2@ LET FLUG=UAL "@": QOUER UAL "1": IF 
NO THEN PLOT VAL "2@6",UAL "70": DRAW U 
AL "18", UAL "B" 
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8825 IF SO THEN PLOT VAL "2@6",VUAL "15" 
>? DRAW VAL "18",UAL "@" 

8838 IF EA THEN PLOT VAL "“246",VAL "36" 
>: DRAW VAL "6",UAL "10" 

8035 IF WE THEN PLOT UAL "176",UAL "36" 
: DRAW UAL "@",UAL "1" 

8836 OVER VAL "GB" 

8037 IF OCR) THEN PRINT AT 16,283CHRS ( 
144+ COCRI-1)9) 

8838 PRINT AT 16,263"s" 

8039 IF Q<>@ THEN IF O$(€Q,1)<>" " THEN 
PRINT AT 18,26;CHR$ (143+Q) 

3243 RETURN 

8@5@ FOR N=16 TO 18: PRINT AT N-1;263" " 
: PRINT AT Nj 26;"s": FOR X=1 TO 5: NEXT 
X! NEXT N: FOR N=18 TO 17 STEP -1: PRINT 
AT N, 263" "2 PRINT AT N-1;263"s": FOR X 


=1 TO 5: NEXT X: NEXT N 
g@6@ RETURN 


g878 FOR N=26 TO 28: PRINT AT 16,;N-15" " 


3AT 16;N3"s": FOR X=1 TO S:? NEXT X: NEXT 
N: FOR N=27 TO 26 STEP -1: PRINT AT 16; 
Nt13C" " AND N<>273+CCHRS (€143+C2@X)) AND 
N=27)3AT 16;N3"s": FOR X=] TO S: NEXT X 
NEXT N 

8875 PRINT AT 16;283CHR¢$ (143+(ZxX)) 

8888 RETURN 

8685 FOR N=26 TO 28: PRINT AT 16;N-13" " 
IAT 16,;N3"s"2? FOR X=1 TO S: NEXT X: NEXT 
N: FOR N=2?7 JO 26 STEP —-1: PRINT AT 16; 

Nt13" “SAT 16;N3"s"2> FOR X=1 TO 5S: NEXT 

X2? NEXT N 

3838 RETURN 


e7i@ PRINT INK VAL “S" a" THERE IS HERE ™ 
3C"A “ AND YCOCRIJ=VAL "@"3+C"SOME " AND 
YCOCRIJ=VAL “1"J+rI$COCRI) 

8735 GO TO VAL "1668"+C(UAL "168"xkCR-VAL 
sa ae) 

8808 DATA "LADDER"; "GLUE", "KEYCIRONJ";"K 

NIFE"; "MATCH"; "MATCHBOX",; "BALL", "MAGNIF I 


*, "HANMER", "STAKE"; "CHARM"; "KEY CGOLD)" 
BE IVER”; “BATTERIES” 
1 DATA “PLANK", "SPADE"; "TORCH", "MIRRO 


@ DATA VAL "@",VAL "1",UAL "B",VAL "B 
sYAL "@B",VAL "@",UAL "@",VAL "@",VAL "GB 
-VAL "@", VAL "B",VAL "B", VAL "B", VAL "1 


51 DATA VAL "@",VAL "@",VAL "B",VUAL "B 


6320 IF C$="I" THEN GO TO UAL "8924" 
6321 IF LEN C$<UAL "4" THEN GO TO VAL " 
B44" 
e902 IF C$C TO VAL "3")="GET" THEN LET 
2s=C$(vAL "5S" TO ): FOR N=UAL "1" TO VAL 
"10": IF I$COCRJ;NJ<>" " THEN NEXT N 
6983 IF OBJ<VAL "9" AND C$( TO VAL "3")= 
"GET" THEN LET U$=I¢(OC(R), TO N-UAL "1" 
}: IF U$=%% THEN LET FLUG=UAL "@": PRIN 
T "YOU TAKE THE "32$3".": LET OBJ=O0BJ+UA 
i "1": GO SUB 8885: POKE (UAL "S9999"+0( 
R)J,UAL "1": LET OCRJ=UAL “@": RETURN 
8924 LET FLAG=UAL "@": IF C$=" INVENTORY" 
OR C$="I" THEN PRINT "YOU ARE CARRYING 
(2 PRINT “s=sssssssssssss=": PRINT 0: F 
OR N=VAL "6@@@B" TO VAL "6@G19": IF PEEK 
N THEN PRINT TAB VAL "5"3("A " AND NOT 
YCN-VAL "59999")3+C"SOME " AND YCN-VAL 
"59999" )+I$(N-UAL "S9999"): LET FLAG=UA 
L "1" NEXT N? RETURN 
B9@5 IF C$="INUENTORY" OR C$="I" THEN N 
EXT N? IF NOT FLAG THEN PRINT TAB UAL * 
S"3"NOTHING."? RETURN 
8986 IF C$="INUENTORY" OR C$="I" THEN R 
ETURN 
8987 IF C$="GET" OR LEN C$<UAL "4" THEN 
GO TO VAL "9144" 
g39@8 IF OBJ<UAL "9" AND C$C TO UAL "3")= 
"GET" THEN PRINT “I SEE NO "3C$CUAL "5" 
TO J: RETURN 
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8318 IF C#C TO VAL "4")<>"DROP" THEN GO 
TO VAL. “S144” 

8915 IF FLUG THEN PRINT "YOU CAN ONLY L 
EAUE ONE OBJECT INA ROOM.": RETURN 

8928 LET T$=Cs(UAL "6" TO J 

8938 FOR N=UAL "1" TO UAL "18": FOR B=UA 
L "1" TO VAL "10": IF I$(N,BJ="_" THEN 
LET E$=1$(N, TO B-UAL "1"): GO TO UAL "8 
346" 

8935 NEXT B 

8348 IF E$=T$ AND PEEK (UAL "S9999"+N) 
HEN LET FLUG=UAL "1": PRINT “YOU DROP 

HE "3T$3","2 LET @X=N: LET OBJ=OBJ-UAL " 
1”? LET OURJeN? PORE YALL “SSSSa"+Ns VAL ° 

@": GO SUB 8878: RETURN 

895@ NEXT N: PRINT "YOU AREN’T CARRYING 
THAT. "2 RETURN 

$220 PRINT AT VAL "21",UAL “@" ;"COMMAND 
p 4 

3495 LET C#="" 

3416 IF INKEY$<>"" THEN GO TO VAL "36108 


An 


9828 LET 2$=INKEY$: IF zZ¢$="" THEN GO TO 
UAL "39028" 

9825 BEEP UAL ",@@5",UAL "5" 

9@3@8 IF Z$=CHR¢ UAL "12" AND LEN C#>UAL 
"@" THEN LET C$=C$C TO LEN C$-UAL "1"): 
PRINT AT VAL "21", UAL "11"+LEN C$3" "3: 
PRINT AT VAL "21",UAL "11]1"tLEN C$3: GO 

TO VAL "S@1a" 

9833 IF 2$=CHR¢ UAL "12" THEN GO TO UAL 
"9818" 

9834 IF C$="" AND Z$=CHR$ 13 THEN GO TO 
9805 

9835 IF Z@$=CHR¢$ VAL "13" THEN RETURN 

9837 IF LEN C$>2@ THEN GO TO 3018 

9048 LET C$=Cerz¢ 


3645 PRINT 2$3 
34656 GO TO VAL "3818" 
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128 IF C$="HELP" AND RND<UAL ".6" AND N 
ST PEEK VAL "68028" THEN PRINT “I CANNO 
7 HELP YOU NOW." : RETURN 
2191 IF CC$="N" OR C$="NORTH"} AND NO<>U 
oe 8) 6THEN)6FOR N=16 TO 14 STEP -—1: PRI 
BT AT N; 263" ": PRINT AT N-1,263"s": FOR 

X=1 TO 5: NEXT X: NEXT N: GO TO VAL "18 
@2"+CCNO-VAL "i"JXUVAL "108" 
$162 IF (C#="S" OR C$="SOUTH") AND SO TH 
EN FOR N=16 TO 18: OUER 1: PRINT AT N;2 
B3"s"5AT Nt+1,263;"s": OVER @: FOR x=] TO 
S: NEXT X: NEXT N: GO TO VAL “18008"+(CSO 
-YVAL "J"JXUAL "188") 

3163 IF (C$="W" OR C$="WEST" J AND WE THE 
FOR N=26 TO 24 STEP -1? PRINT AT 163sN 

3" “2 PRINT AT 16;N-135"s": FOR X=] TO 5: 

NEXT X%: NEXT N: GO TO VAL "1@8@6"+CCWE-U 
AL "1")XUVAL "168") 

3104 IF (C$="E" OR C$="EAST"J AND EA THE 
N FOR N=26 TO 28: QUER 1: PRINT AT 16;N 
i"s"3AT 16,Nt13"s":2 QUER @: FOR x=] TO 5S 
> NEXT X: NEXT N: GO TO VAL "18@@"+CCEA- 
VAL "1"JXUAL "188") 

S145 1F Cé="HELP" THEN PRINT “THERE? S A 

SIMPLE SOLUTION RIGHT AT THE END OF YOU 
R NOSE": RETURN 
3167 IF LEN C$>UAL "2" THEN IF C#C TO VU 
AL "2° )J="WH" THEN PRINT “LOOK HERE: I A 
SK THE QUESTIONS ROUND HERE." +: RETURN 
9198 IF C$="SAVYVE" THEN SAVE “POSITION" 
LINE CUAL "16@6"+CCR-YAL "1" JXUVAL "186" 
2 RETURN 
S31@8 IF €s="LOAB" THEN LOAD ** 

S114 LET SSVAL “SS7@"? LET G=UYAL "11": G 
9 SUB VAL "3566" 

3126 IF C#=x$ AND PEEK VAL "686868" AND P 
EEK VAL "60061" THEN PRINT “THE LADDER 

IS NOW MENDED." : POKE VAL "6@18@",VAL "1 
"2 RETURN 
913@ LET S=VAL "S528": LET G=UVAL “12": G 
9 SUB VAL "3966" 
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3146 IF C$=xX$ AND PEEK VAL "66182" AND P 
EEK VAL "6@@65" AND PEEK VAL “6@@04" THE 
N POKE VAL "681@3",VAL "1": PRINT "YOU 
LIGHT THE FIRE. SUDDENLY "? RESTORE Y 
AL "9538": FOR N=VAL "1" TO VAL "39": RE 
AD G: PRINT CHR$ G3: NEXT N: POKE VAL "5 
6@64",VAL "OB": FOR N=Y¥AL "1" TO VAL "158 
> NEXT N: GO TO VAL "2286" 
3141 IF C$=x$ AND PEEK VAL "68885" AND P 
EEK VAL "680884" THEN PRINT "YOU STRIKE 
THE PACs an sac a -».»sAND IT GOES OUT AGA 
IN. THAT WAS A SILLY THING TO DO8": POKE 
VAL "6@6864",UAL "@": RETURN 
9142 IF OCRJ>VAL "@" THEN GO TO VAL "893 
ao" 
3143 IF LEN C#>VAL "2" AND CE¥<>"IT" AND C 
$<>"GET" AND OCR) THEN GO TO VAL "8983" 
3144 IF C¢="I]" THEN GO 7O UAL “ese@e" 
9145 IF LEN C#>=VAL "3" THEN IF OBJ=VAL 
"3" AND C$C TO VAL "3")="GET" THEN PRI 
NT "YOU ARE CARRYING TOO MUCH. "+: RETURN 
3146 IF LEN C$>=VAL "3" THEN IF C$C TO 
VAL YS" J="GET” THEN PRINT “yOu CANNOT 7 
AKE THAT." :? RETURN 
3147 IF LEN C$>VAL "4" THEN IF C#C€ TO YU 
AL, “4° )="DROP" THEN GO TO UAL “SSS” 
9315@ IF NOT PEEK VAL "“6@@28" THEN LET S 
=VAL "9691": LET G=VAL "18": GO SUB VAL 
"9906": IF C$=X$ THEN LET S=VAL "39692": 
LET G=VAL "23": GO SUB VAL "3986": PRIN 
T "YOU SEE THE "3J¢CVAL "S3S")? PRINT X$: 
PRINT “YOU REMOVE IT FROM "“3x#$CU¥AL "15" 
TO J: POKE VAL "6@@28",UAL "1"? RETURN 
S155 LET JPSYAL “"@Y: IF Ese"J" THEN PRI 
NT "YOU HAVE THE FOLLOWING JEWELS: ==== 


SSS] SSS SSS SS Se" 2 FOR N=VAL 
"66026" TO VAL “6@8@29": IF PEEK N THEN 
LET JF=VAL "1"! PRINT “ THE “jJ@(N-UAL 


"60819"): NEXT N: RETURN 
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$160 IF C$="J" THEN NEXT N: IF NOT JF T 
SEN PRINT “  — NONE.": RETURN 

S165 IF C$="J" THEN RETURN 

3199 LET GH=VAL "1": RETURN 

$302 IF C#="S" OR C$="SOUTH" OR C$="N" 0 
= C$="NORTH" OR C$="E" OR C$="EAST" OR C 
$="W" OR C$="WEST" OR C$="U" OR C$="UP" 


OR C$="D" OR C$="DOWN" THEN PRINT “YOU 
CANNOT GO THAT WAY." : RETURN 


$302 IF LEN C#>3 THEN IF C#C TO 4)="LO0 
K" THEN PRINT “I CANNOT SEE ANYTHING OF 
INTEREST IN THAT DIRECTION.” ? KE 

TURN 
ms63 IF LEN C$>2 THEN IF C$€ TO 3)="EAT 
THEN PRINT "DONT BE STUPID2": RETURN 


33093 IF RNDD>UVAL ",5" THEN PRINT "YOU CA 
NNOT DO THAT HERE." : RETURN 


3316 IF RND>VYAL ".5" THEN PRINT "I CANN 
OT ALLOW YOU TO 50 THAT." =: RETURN 
932@ PRINT “SORRY; THAT IS NOT POSSIBLE. 
"2 RETURN 
358@ DATA VAL "89",UAL "739",VAL "85", UAL 
"32", UAL "76",VAL "73",VAL "78",UAL "68 
“SUAL "S82" 5VNAL "65" 5VAL “SZ",UAL “645A 
L "82", UAL "65",VAL "80",UAL “68",UAL "7 
g3",Y¥AL "23", UAL "62", UAL "84", VAL "72",U 
AL "69",VAL "32",UAL "84",UAL "82",UAL " 
65",VAL "8@",UAL "68",UAL "79",UVAL "73", 
VAL "B2",UAL "SZ",UAL "ZS"sVAL "BA"; VAL 
"OS" sJAL “Za"sNAL “BS"sVAL “4e" 
351@ DATA VAL “7I"sVAL "76E";,;VAL “B5",VUAL 
"6S" sVAL “S2";VAL "“Z6"5 VAL "65", VAL “6S 
“sVAL “SS sVAL “ES ’sVAL “sz 
39526 DATA VAL "83",VUAL "84",UAL "82",UAL 
“Zo sJAL “ZS"sVAL “ss! .VAL "SZ" sVAL "77 
",;VAL "65",VAL "84",VAL "67",VAL "72" 
3534 DATA VAL "65",VAL "32",UAL "8@",UAL 
"eas UAL. "Yes; UAL. “SS yUAL. “Ze ;VAL “SZ 
",SVAL "83",UAL "76",VAL "73",VAL "68",UA 
i. "69", UAL 133" ,UAL W325 VAL "Pa" 7 VAL “So 
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@", UAL "68",UAL "78",UAL "46",UAL "32",U 

AL "89", UAL "739",UAL "85", UAL "32",UAL " 

71", UAL *2e",NAL "Sz", UAL “S2",UAL "92", 

UAL "32",UAL "32", UAL "84",UAL "72", UAL 

"82", UAL "73",UAL "B5",UAL "71",UAL "72" 

9548 DATA UAL "76",UAL "73",UAL "73", UAL 
"75", UAL "32",UAL "85",UAL "8a" 

9558 DATA VAL "69",UAL "77",UAL "69", UAL 
"82", UAL "65",UAL "76",UAL "68" 

9568 DATA VAL "77",UAL "65",UAL "71", UAL 
"78",UAL "73",UAL "78", UAL "89",UAL "73 
",UAL "78", UAL "71", UAL "32",UAL "71", UA 

L "76",UAL "65",UAL "83",UAL "83" 

9572 DATA VAL "83", UAL "77",UAL "65", UAL 
"83", UAL "72",UAL "32", UAL "79",UAL "BB 
",JUAL "69", UAL "78",UAL "32",UAL "84",UA 

L "72", UAL "63",UAL "32",UAL "82",UAL "7 

9", UAL "67",UAL "75" 

9588 DATA VAL "83",UAL "77",UAL "65", UAL 
"83", UAL "72",UAL "32", UAL "82", UAL "78 
*"gVAL “62°, VAL, ¥75" 

9588 DATA VAL "87", UAL "73",UAL "B84", UAL 
"72", UAL "32", UAL "84",UAL "72",UAL "69 
",JVAL "32", UAL "83", UAL "84",UAL "65", UA 

L "75",UAL "69" 

9595 DATA VAL "69",UAL "88",UAL "65", UAL 
"27", VAL "73",UAL "78",UAL "69", UAL "32 
",UAL "87",UAL "65",UAL "76",UAL "76",UA 

L "65",UAL "32",UAL "66",UAL "69",UAL "7 

6", UAL "76", UAL "32", UAL "82", UAL "85",U 

AL "83",UAL "72" 

9682 DATA VAL "82",UAL "82",UAL "69", UAL 
"83", UAL "83",UAL "32",UAL "66",UAL "63 

",UAL "76",UAL "76" 

9618 DATA VAL "74", UAL "85",UAL "77", UAL 
"BB", UAL "32",UAL "73",UAL "78",UAL "84 
", UAL "79", UAL "32", UAL "88",UAL "73",UA 

L "84" 

9615 DATA VAL "71", UAL "82",UAL "65", UAL 


"66",VAL “32",UAL "“84",UAL "72",UAL "69 
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P.vAL “32",UAL "79",UAL "89",UAL "65",UA 

"76" 

$520 DATA VAL "76",VAL "65",VAL "78", UAL 
Pes", UAL "32",UAL “79",UAL "78",UAL "32 
P,UAL "65",UAL "32",UAL "77",UAL "65",UA 

_ "84",UAL "B4",UAL "82",UAL "69",UAL "8 

3", UAL "83" 

2625 DATA VAL "68", UAL "73",UAL "71", UAL 
"32",UAL "69",UAL "65",UAL "82",UAL "84 
B,vAL "72" 

$630 DATA VAL "73",UAL "78",UAL "83", UAL 
"69", UAL "82", UAL "84",UAL "32",UAL "66 
",VAL "65",UAL "84",UAL "84",UAL "69",UA 

Lo "g2", UAL "73",UAL "69", UAL "83" 

$648 DATA VAL "85",UAL "B3",UAL "69", UAL 
"32",UAL "88",UAL "76",VAL "65",UAL "78 
E,WAL "78" 

965@ DATA UAL "69",UAL "B8",UAL "65", UAL 
"72" VAL “73",UAL *78",UAL "69", UAL "32 
",UAL "68",UAL "82",UAL "65",UAL "71",UA 

be *28".VAL ae" 

9691 DATA VAL "85",UAL "83",UAL "69", UAL 
¥3>" UAL "72",VAL "73",UAL "@2",UAL "ez 
",UAL "79",UAL "82" 

3692 DATA VAL "73",UAL "78",UAL "32",UAL 
"84", UAL "72",UAL "69",UAL "32",UAL "69 
",UAL "28",UAL "68",UAL "32",UAL "73",UA 

L "76",UAL "32",UAL "83",UAL "23",UAL "8 

6°, UAL "S2",VAL "32" ,UAL "28",UAL "7a",u 

AL "83",UAL "69" 

9693 DATA VAL "76",UAL "79",UAL "79", UAL 
"25",UAL "32",UAL "65",UAL "84",UAL "32 

",UAL "83",UAL "67",UAL "82",UAL "63",UA 

L "68",UAL "78" 

9634 DATA VAL "S@",UAL "82", UAL "69", UAL 
"83",UAL "@3",UAL "32",UAL "“G9",UAL “78 

",UAL "84",UAL "69",UAL "82",UAL "32",UA 

L "28",WAL "78",UAL "S32", VAL "S4",VAL "2 

2", VAL "73",VAL "83",UAL "32", UAL "83",U 

AL "8G",UAL "6S",UAL "67",UAL "84",UAL " 

82", UAL "85", UAL "27" 
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3696 DATA VAL "88",UAL "82",UAL "69", UAL 
"83",UAL "83",UAL "32",UAL "69",UAL "78 
",UAL "84",UAL "69",UAL "82" 
9698 DATA VAL "84",UAL "72",UAL "69", UAL 
"32", VAL "76", UAL "73",UAL "61",UAL "eS 
“UAL "73" ,UAL "Se", UAL "S2",UAL *71°,UA 
L "85",UAL "“@2",VAL "71",UAL "76",VAL "6 
39", UAL "83" 
9699 DATA UAL "82",UAL "69",UAL "2?7",UAL 
"29",UAL "86",UAL "69",UAL "32",UAL "8a 
* UAL °76",UAL “es, MAL “7i" 
9780 IF C$="KILL DRACULA" AND PEEK VAL " 
6@@@3S" THEN PRINT “YOU KILL DRACULA "3: 
RESTORE VAL "39598": FOR N=VAL "1" TO YA 
L "14": READ A: PRINT CHR$ A3: NEXT N: P 
RINT “ YOU SEE THE “3J$CUAL "4"): POKE VU 
AL "6@106",UAL "1": GO TO VAL "2218" 
9785 IF C$="KILL DRACULA" AND NOT PEEK VU 
AL "6@@@S" THEN PRINT “YOU HAVE NOTHING 
TO USE ON HIM. ": FOR N=UAL "1" TO VAL " 
2@8": NEXT N 
3718 PRINT "YOU WEREN’T QUICK ENOUGH. 
DRACULA RISES FROM HIS TOMB AND SINK 
S HIS FANGS INTO YOUR NECK. YOU DIE." 
98@@ FOR N=VAL "1" TO VAL "158": NEXT N: 
PRINT “WOULD YOU LIKE TO BE 
REINCARTED ? (CY/“N3": GO SUB VAL "1816": 
IF C$="Y" THEN RUN 
981@ IF C¢="N" THEN STOP 
9828 PRINT “PLEASE TYPE Y OR N.": GO TO 
VAL "3880" 


3893 RESTORE S: LET x$="": FOR N=UYAL "]" 
TO G: READ CHR: LET X$=X$+CHR$S CHR: NEX 
T N? RETURN 


2 
Supertank 


Scenario 


The year is 2014, and two years have passed since the Great City 
Riots left London in its present derelict state, cluttered with 
crumbling and decaying houses, offices and shops, and littered 
with numerous abandoned cars and lorries. 

You are sitting at home watching a rerun of the 1999 Oscar- 
winning film Rocky 23, when you receive a message from your 
old commanding officer informing you of a major crisis that is 
about to unfold. The terrorist group PPA have planted a large 
nuclear device somewhere in the maze, which was once a great 
and beautiful city, and such is its power that failure to defuse it in 
time will result in the total destruction of the South of England 
and the death of 61 million people. 
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As the youngest officer of the disbanded Tank Corps, you have 
been selected for the mission and have been given command of 
the only supertank left in existence. Your mission: enter London, 
locate the bomb and defuse it in time. 


Hints on Entry 


The program is very graphical with all relevant information about 
the current status being presented on the screen in diagrammatic 
form. Because of this, any errors made during the typing stage are , 
likely to be in one of three main regions and these are listed 

below. 


1) There are a great number of user-defined graphics and these, 
as usual, are represented by lower case letters. During the 
typing stage extra care should be taken to avoid omitting any 
of these special characters. 

2) The data at the beginning of the program contain the new 
character set (see technique notes). These values must be 
entered carefully, as a single error or missing value will result 
in gibberish being displayed on the screen. 

3) The final area of difficulty is the map section (lines 510-612) 
where the individual program lines are made up of spaces, 
user-defined graphics and blocks, representing the walls of 
the maze. To make things as clear as possible the blocks are 
shown in the listing as lower case ‘s’ but should be entered 
using GRAPHICS CAPS SHIFT/8 (see Spectrum manual for 
details). The number of spaces is also vitally important and 
these should be checked with the character positions in the 
previous line. 


Techniques 


When you play Supertank you will see that it is possible to create 
a personalized character set for use in your own programs, and 
this can help to create a futuristic or ancient atmosphere. 

If you are familiar with creating user-defined graphics then 
creating your own characters will not pose any problems. The 
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following description should help if you are not very familiar 
with this procedure. 
A character is made up of 8 bytes as shown in Fig. 1. 


Letter A 


Fig. 1. 


The numbers obtained in the right-hand column are then poked 
into consecutive memory locations where the character set is to 
be stored. 

The original set used by the Spectrum is stored in read-only 
memory (ROM) from location 15360 to 16128 and, because of the 
structure of ROM, these values cannot be altered. The first step, 
therefore, in defining a new character set is to transfer the original 
from ROM to some suitable location in random access memory 
(RAM) where it can be changed. (The top of memory from 63000 
onwards is generally the best place.) 

The following program can be used to perform this transfer: 


10 LET ST=63000 

20 FORI = 0 TO 2040 

30 POKE ST+1,PEEK(15360+ I) 
40 NEXT I 


When transfer is complete, we must inform the computer that it 
should use the new character set, and this is achieved by 
changing the systems variables (CHARS) at locations 23606 and 
23607 thus 


POKE 23606 ,24 : a 
POKE 23607 ,246 


2 aE  _| Ge a 
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The character set has now been transferred from ROM into RAM, 
and we are ready to start changing the characters by poking new 
values into the appropriate locations. 


Example 


Consider the problem of redefining the letter A to the above 
design. We must first decide where the representation of A starts 
within memory, and this can be found using 


LET START=(CODE(A)#8)+63000 


The new character can now be entered into memory by using the 
following short program: 


10 LET START=(CODE(A)«8)+63000 
20 FORI=0TO7 

30 READ N 

40 POKESTART+I,N 

60 NEXTI 

70 STOP 

80 DATA 126,129,129,129,255,129,129,129 


The letter A has now been redefined and will appear as such in all 
listings and printings. 


Playing Instructions 


Load the game from tape and type RUN. There will be a short 
delay during which time the maze and the variables are 
initialized, and then you will be placed in the centre of the 
labyrinth. 

The object of the game, as described in the scenario, is to reach 
and defuse the bomb within a certain time limit. At the 
beginning of each game you will be given a limited supply of 
food, fuel and other necessities, but it will be necessary to search 
for further supplies as the game progresses. The supplies are 
recognizable from the user-defined graphics shown in Fig. 2. 


Commands 


The only commands necessary to play the game are those ; 
pertaining to the control of the tank (see Table 2), and these can be 
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= BOMB 

ed FOOD 

SS FUEL 
LASER POSITION 

= TANK UP 

= TANK RIGHT 

3 TANK DOWN 

4 TANK LEFT 
RADIOACTIVE MATERIAL 

Fig. 2. 


operated from the keyboard or by using the left-hand joystick on 
INTERFACE.” 


Table 2 


Command Direction 


RPNwWAH 
og 
5 


Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 
2) ALL GRAPHICS CHARACTERS ARE INDICATED IN LOWER CASE LETTERS. 


5 POKE 23658,8 

1@ INK 7: BRIGHT 1: PAPER 1: BORDER 1: 
CLS : PRINT AT 4;,113;"SUPERTANK" SAT 7,108 
3"SETTING UP"3AT 18,1@;"PLEASE WAIT" 
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2@ FOR I1=@ TO 768: POKE I+64256,PEEK ( 
1+15616): NEXT I 

3@ POKE 23687,252 

4@ FOR 1=64521 TO 64723 

S@ READ A: POKE I,A: NEXT I 

62 DATA 6,36, 36, 126, 98,98, 98,0; 124,68 
,68, 126, 98, 98, 126,G, 126, 66, 66, 96,96, 98, 1 
26,8,126, 66,66, 98, 98, 98, 126,08, 126,64, 64; 
126,96, 96, 126, 8, 126, 64, 64, 126, 96, 36, 96,2 
, 126,66, 64, 182, 98, 38, 126, 8,66, 66, 66, 126, 
98,98, 98,2, 16, 16, 16,24, 24, 24, 24,4 

7@ DATA 4,434,363; 20, 7, 126, 8, 68, 68, 68, 1 
26,98, 98, 98, 8, 64, 64, 64, 96, 96, 96, 126,8,12 
6,74, 74, 186, 186, 106, 186, 8, 126, 66,66, 98,3 
8,98, 98,0, 126, 66, 66, 98, 98,98, 126,8,126,6 
6,66, 126, 96, 96, 96, @, 126, 66, 66, 98, 98, 119, 
126, 8, 124,68, 68, 126, 98, 98, 98, @, 126, 64, 64 
,126,6,6;126,@ 

82 DATA 126, 16,16,24, 24,24, 24,0, 66; 66, 
66, 98, 98, 98, 126, 0,98, 98, 98, 98, 36, 36,68,2 
74,74, 74;1@6; 186, 186, 126, 0, 66; 66, 66, 62, 
98, 98, 98, 0,66, 66, 66, 126,24, 24, 24,8, 126,2 
2,126, 96,96, 126,08 

38 DATA @ 

1@@ FOR 1=64352 TO 64375: READ A: POKE 
1,A: NEXT I 

11@ DATA @,8,0,8,0,24,24,48,8,8,8,126;1 
26,0,9,0,0,8,0,0,0,24,24,8 

12@ FOR 1=6432@ TO 64335: READ A: POKE 
1,A: NEXT I 

13@ DATA @, 12, 24,24, 24,24, 12,8,8, 48, 24, 
24,24,24,48,8 

14@ FOR 1=64264 TO 64271: READ A: POKE 
1,A: NEXT I 


158 DATA 24; 24,24, 24; 24,8, 24,8 

16@ FOR 1=64464 TO 64471: READ A: POKE 
I;,A? NEXT I 

17@ DATA @,24,24,8,8,24,2494,2 


18a 
1,A: 
19a 
208 
I, A: 
212 
220 
T,A: 
238 
248 
1,A: 
25a 
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FOR 1=64488 TO 644395: READ A: POKE 
NEXT I 

DATA @,62,62,8,62,62,8,8 

FOR I=645@4 TO 64511: READ A: POKE 
NEXT I 

DATA 126;,70,6, 30,24,8, 24,2 

FOR I1=64736 TO 64743: READ A: POKE 
NEXT I 

DATA 64,96;48,24,12,6,2,2 

FOR 1=64384 TO 64463: READ A: POKE 
NEXT I 

DATA 126,66, 66, 70,78, 7@,126,0,8,8,8 


324; 24; 24; 24,8, 126,66, 2, 126,96, 96, 126,@0, 
124, 68,4, 38,6, 78, 126,@,12@, 72, 72, 72, 126, 
24, 24,0, 126, 64,64, 126,6,; 7@, 126,8, 126,64, 
64,126,98,98,126,0,126,2,2,6,6,6,6,0,60; 
36; 36,126, 78,70,126,0,126,66,66,126,6,6, 


6,0 
268 
I, A: 
270 
4 
280 
I,A: 
296 
388 
IT, A: 
318 
326 
I,A: 
338 
34@ 
I, A: 
354 
368 
I,A: 
378 
38a 
I,A: 


FOR IJ=@ TO 27: READ A: POKE USR “F"t 
NEXT I 
DATA 124,13, 255, 199,255, 146, 178, 25 


FOR I=@ TO 7: READ A: POKE USR "D"+ 
NEXT I] 

DATA 118,74, 106,78, 118,85,85,118 
FOR I=@ TO 2: READ A: POKE USR "U"t+ 
NEXT I 

DATA @,16,24,68,68,94,255,¢4 

FOR I=@ TO 7: READ A= POKE USR "L"+t 
NEXT I 

DATA 16,16,6@,255,60,16,16,16 

FOR ]=@ TO 7: READ A: POKE USR "BUt 
NEXT I 

DATA 124,248, 254,171; 87; 254; 248; 124 
FOR I=@ TO 7: READ A: POKE USR "C"t 
NEXT I 

DATA @,1,127,176,213,127,1,@ 

FOR I=@ TO 2: READ A: POKE USR "M"+ 
NEXT I 
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338 
488 
I, A: 
412 
426 
I; A: 
430 
44@ 
I,A: 
45 
3668 
56] 
562 
yf 

383 
384 
S@5 


514 


sfs 
516 
egos 


518 


Ss 


326 
s $s 
s 
DLL 

s 


DATA 24,153, 126,189, 126;189;,126,129 
FOR I=@ TO 7: READ A: POKE USR "N"+t 
NEXT I] 

DATA 17@,84,124,127;,127; 124, 84;178 
FOR I1=@ TO 2: READ A: POKE USR "O"t 
NEXT I 

DATA 129; 126; 189, 126, 189, 126; 153; 24 
FOR I=@ TO 7: READ A: POKE USR "P"t 
NEXT I 

DATA 85, 42,62; 254, 254,62;,42;85 

DIM M$(64, 88) 

FOR A=1 TO 5S 

FOR I=] TO 88: LET M$C(A;IJ="s": NEX 


NEXT A 
FOR A=6@ TO 64 
FOR I=1 TO 88: LET M$CA,IJ="s": NEX 


NEXT A 
LET M$¢(C6)="sssssssls 
Ls 
s sssssss" 
LET MN$(8)="sssssss ss s sess Ss S$sss 
s sd s ssssssss sss s ssss s 
SSeS goes SoSSesese” 
LET M$CS)J="ssssessg $s s 
s & gd lsss s s s 
sds s sssssssss" 


LET M#C1@)="sssssss ssss sssss gs § 


S$ Sss SSeosess5 Su ¢ &€ s sdsss 
ssss $ §$ $s § issesses" 
LET M#ClljJ="sssssss s s 
S es & s ssss § § $698 ses 
€$ ¢ €s © sseecscse™ 
LET M$C12Z2)J="sssssss_ sg $s s 
$ © $ S$8SSssss s 8 
sss s € 5 fesssess" 
LET M#$C13j)="sssssss_ sg s ess 
S$ © §¢ s s $ gs 
s S$ €& sgsecesosssc” 


——————————— — 


ae 
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524 LET M$C14)="sssssss  ssssssg 
S SSS S$$8 $ $$ $ S$ BSSSSSSSS S$ 8 S$ SES 


sss sss os sssesss" 
526 LET M#C1S)="sssssss sssssss sssssgs 
s sft os s ss s sd $ss s s sssls 
ss Ss S SssSeeses" 
528 LET M$C16)="sssssss 
s s sss sss ssssss s Sse ¢ dses 


Sassess §€ S§ SESSESSESsS" 
S538 LET M#C1l7)="sssssss ssssss ssss gs 


s s ss f s Ss s 
sfsss s  § sssssssss" 

532 LET M#$C1l8)="sssssss sg S$ sss 

$ Sssse se ss Ss SSS SS §5 $sos 
s ls ssss ss¢ssssss" 

534 LET M#C1S3)="sssssssss s ss s s 
SSs s s ssd s ss s 
ssss oes gsseasessesss " 

536 LET M$C2@)="ssssssssssssss ss $s § § 
ses oSese Ss ¢s$s 685 S&S S$ S§ SES SS 
6 $5 SESE S sssssssssss" 

538 LET M$C2Z1)="sssssss sg s ess & 

Us s§ses sss 
s $s issssssss" 

54@ LET M#$(22)="sssssss ssss s ssss sss 
$ s ss s $ sss ss sssss sssss sss 

Ss s ssssssss" 
542 LET M$C23)="ssssssssssssss 
ss seges ¢ Lses ds s sus gs S ¢ gs 

S& SSSSSESS SeeSSeessssss" 

544 LET M$(24J="sssssssls § $8 5 
$ 8 Ss €s¢ $¢ § Ss o¢ss6 5 $ 

sss ss lesssss¢sss" 

546 LET M$(25)="sssssss s ssssssss ss s 

sss © SSSsesis ss sess us S ss 

s s s ss esssesssse” 

548 LET MN¢C26)="sssssssf_ sl dss ss 

us s sssssssss S&S & & © 8 S&S SES 


§ §€S$sSSS5 dgsssse¢ss" 
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55@ LET N#C27)="sssssssssss sss ss ssss 


$8 ses ¢§ ss s $s 

=s ssss ssssssss" 
552 LET M¢$(28)="ssssssesd ss$su ss 
Ss Ss s $s SsgssesS OS S 


Se eee Seesesee osssescs” 
594 LET N$C29)="seeseeessssesssssss ss 


s S § Ses6¢ GS Si bs es s § 
s s ssl sssssss" 

556 LET M$(30)="sssssssssssss sees 
SS SSS SSSE SESS s sssessesigs s s 
s Ssscsesees seseses 

558 LET MN$(C31)J="sssssss 

S s s S Ss s © ss 


PrPrs Sssesesessss seossess" 

S66 LET NS(32)="s8sesss sosssssesssssgs 
ssS Ss $ S6sSs soso Ss9 Séss 685 & SS 
s ssssssss sssssss" 

562 LET MN$C33J="sssssss s sssssssssssss 
ess s esis s s 

SSSS sosssesese” 
564 LET M#(34)="sssssss s sssssssssssss 
sss $ sss S Ss 
SSse sessocssss™ 
S66 LET MSCSaJ="sessesss < 
Ses ssees ¢ s 
S$ sssssssss ssssssssss" 

S08 LET NSCS6J="sesecsees = § SESE oS 
S$ § $§ $§S$ SSSS ssssss ssussss $ § §$ 
SS ¢ SG S8EESS Sosesescesges” 

576 LET NSCSZPI=H"seseesses s © £E SSE 


$ se ¢s $$ ¢ gs s § 
l sss dssissssiss“ 

571 LET MS(SB)="sssesesses Eso SSE =F 
SS $6 See S85 6 & Seessseesesises 


Ss sss ese¢ils s ssesesses" 
572 LET N#C39IJ="sseessss ss sf s ste § 


sfss s s s = ss sles leslel 
Ss sss sesleile seecesess™ 
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574 LET M#$(4@)="ssesssss ss s $ §$ § SS 
sé © § sess ¢ ds § s$s¢S 


sssf $s sss sssssssss" 
576 LET M$(41J="ssssssssss s 
s S&S SSesssses € S85 SE 
s sss ssssfsss sssssssss" 
578 LET M$C42)="sssesssslisssss sg $s ss 
$ §& § 88 $68 8 s s§ S$ ss 
$s ssssfsu Isssssss" 
58@ LET M#(43)="sssssss ssss § SSss_ fs 
ssss s s S sSss oS segsses ses 
si siss ssfs sssssssssss" 
5382 LET M$C(44)="ssssssss dss fs fs 
s sSss S SS §& & s ssss 
ss sssssss sssssssssss" 
584 LET M$C45)="ssssssss_s s ss § 
SS sSSSEE8SS95¢ ssSS Ss8SsS Ss Ssssd 5s 
sss sssssssssss" 
586 LET M#(46)="sssssessssess 
s dsssss ss ssssf s s§ $s s ss 
& § os léssussesssosses" 
588 LET M$(47)="sssssss sssssss s s s 
s $s ss $s ssss_ fs ss s 


ssss ssss fg Llsssssses” 
598 LET M#C48)="sssssss s § $§ § SSE § 


f s ¢s & & Sseesasssss s ssseses 

ssss sl ssssssss" 
532 LET M¢C4S)="sssssss s s § §& 
$ § BSESSESS S us ssss SS 5 


ssss s s sl e?Pssssssss" 
594 LET M#C5@J="sssssss ¢s $ Ssss $ SS 


Sssss s Ss s sssssss sss 
sssssssssss sssssssssssss" 

536 LET M$C(S1J="sssssss s sis Sis s 
s sf sssssssss ssss s sd ss ss ssss 
SSS SESE SS € ssssess™ 

538 LET MN#¢CS2)="sssssssssssssssg sss 
$s s s sssss s s8sSs 


ss SSS § S$88Ss95" 
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646 LET M$C(S3)="sssssss_ sls ss 
S Se5 © © ¢ S § eset sess 
sss sss sssssss" 
662 LET MNS(S4J="ssessss s S&S S&S SSS Ss 
s s s S&S Ssesss s sss 

$ ¢ e656 se § Ssssses" 

664 LET MN$(SSJ="sssssss ss séss s 

ssss Ssiess € S s sss sssdssss 

s ¢ ¢ s ss ss § sssssss" 

606 LET M#(S6)="ssesesss sssssss s s 

s sss s Ss € Se s ssss s 
s §s s s sssssss" 

668 LET M#$(S7J="sesssss slsls_ sd 
$ s S$ sssss gs Ss ssssss s 

sss Ssesscs sessssc" 

61@ LET MN#C(CSB8IJ="sssssss $s $s § SSssssss 
s Sesee ss s ss sssf see s 
sssss sessuses sesssos" 

612 LET MSCSSJ="sesessss ww U ssl 

s 
s ssuuuuUUUSSssssss" 


9308 CLS : PRINT AT 2,63;"GREETINGS-—WELCO 
ME’ SAT 4,143°T OF 
S82 PRINT AT 6;43;""mnop m Pp mnop mnop m 


nop" 

384 PRINT AT 73;43"n n mn mn n 

nf 

3S@6 PRINT AT 8;43;"opmn 0 nm opmn opm o 
Pmn" 

368 PRINT AT 3343" oP op P P 

af 

31@ PRINT AT 18,43"mnop mnop m mnop 
m pe 

312 PRINT AT 12,43" mnopo mnop m pm 

pl 

314 PRINT AT 13545" m o nnomn 
gt 


316 PRINT AT 14,343" m opmn op o pao 


1 
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318 PRINT AT 15,43" n P Op no Pp 
alae 
9326 PRINT AT 16,43" ° m pm pm 


p" 


3938 PRINT AT 28,6; FLASH 13;"PRESS ANY K 
EY TO PLAY’ 3 FLASH @ 

333 IF INKEY$=""" THEN GO TO 339 

18@@ INK 7: BRIGHT 1: PAPER 1: BORDER 1: 
CLS 

1@@5 LET TI=@: LET FOOD1=@6: LET TIME1=@: 
LET DAM1=@: LET FUEL1=@: LET LASER1=@ 
I@]@ PRINT AT 1g 143"FUEL LEFT" SAT Sy 245° 
LASER POWER" SAT 1@,13;"TIME LEFT"SAT 14,1 
;"DAMAGE' 5AT 14,173;"FOOD LEFT" 

1026 INK 6: PLOT 111,152: DRAW @,-3: DRA 
W 137,@: DRAW @,93: DRAW -137,@ 

1@3@ PLOT 111,12@: DRAW @,-3: DRAW 137;8 
> DRAW @,93: DRAW -137,@ 

1849@ PLOT 7,16: DRAW @,-93: DRAW 241,@: D 
RAW @,1@: DRAW -241,@ 

1@5@ PLOT 7,48: DRAW @,-93: DRAW 113,06: D 
RAW @,9: DRAW -113,@ 

186@ PLOT 135,48: DRAW @,-93: DRAW 113,08: 
DRAW @,9: DRAW -113,48 

18072 PLOT 7,8@: DRAW @,-3: DRAW 241,¢4: D 
RAW 6,93: DRAW -241,¢4 

1@8@ PAPER 2: PRINT AT 33143" 

‘: PAPER 4: PRINT AT 73143" 


1@3@ PAPER 3: PRINT AT 12313" 


11@@ PAPER 2: PRINT AT 16313" 

“: PAPER 4: PRINT AT 16,173" 
111@ PAPER 1 
1126 LET FUEL=1372 LET LASER=137? LET Tl 
ME=241: LET DAM=113: LET FOOD=113: LET Y 
=24: LET X=31: LET DIR=2 
1136 GO SUB 8832 
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1135 PRINT AT 2@,933;" INSTRUCTIONS ? 


1136 LET S$=INKEY$: IF INKEY$="" THEN G 
0 TO 1136 

1137 IF S$="Y" OR S$="Y" THEN GO TO 400 

) 

1138 IF S$="N" OR S$="N" THEN PRINT AT 
20555" “; GO TO 114@ 

1139 GO TO 1136 

114@ GO SUB 8832 

1145 IF RND>.SS9 THEN LET E$="MINE"? GO 
TO 3@a@ 

115@ IF J¢="" THEN : LET FOOD1=FOOD-1: G 

0 SUB 8aaa 

116@ IF J$="5" THEN GO SUB 820: GO TO 
114@ 

117@ IF J$="4" THEN LET DIR=@: IF M$CY- 
1,X}<>"s" AND M$CY-1,X)<>"1" THEN LET Y 
=Y-1: LET FUEL1=FUEL-1: GO SUB 8@@@: GO 
SUB 888@: GO SUB 8388: GO SUB 84@0: GO T 
0 1148 

1175 IF J$="4" THEN GO SUB 88@@: GO TO 
114@ 

118@ IF J$="2" THEN LET DIR=1: IF MSCY, 
X+1)<>"s" AND M$CY,X+1)<>"L" THEN LET X 
=X+1: LET FUEL1=FUEL-1: GO SUB 8@@@: GO 
SUB 8880: GO SUB 8308: GO SUB 84@@: GO T 
0 1148 

1185 IF J$="2" THEN GO SUB 888: GO TO 
1148 

119@ IF J$="3" THEN LET DIR=2: IF MsCY+ 
1,X)<>"s" AND M$CY+1,X)<>"L" THEN LET Y 
=Y+1: LET FUEL1=FUEL-1: GO SUB 8@@@: GO 
SUB 8880: GO SUB 8308: GO SUB 84@@: GO T 
0 1148 

1195 IF J$="3" THEN GO SUB 888: GO TO 
1140 


120@ IF J$="1" THEN LET DIR=3: IF MSCY;, 
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K-1)<>"s" AND M$CY,X-1)<>"L" THEN LET & 
=x-1: LET FUELI=FUEL-1: GO SUB 8606: GO 
SUB 888@: GO SUB 838@@: GO SUB 8486: GO T 
5 1146 
1265 IF J$="1" THEN GO SUB 8884: GO TO 
1142 
1218 GO SUB 84aa 
0720 IF Ti=4 THEN LET FOOD1=FOOD-1: GO 
SUB 80@@: LET TI=@ 
2306 (LET Til=TIel 
1248 GO TO 1140 
4000 LET C$=" 

YOU, THE GREATEST WARRIOR OF OUR TI 
RIE HAVE BEEN GIVEN A DEADLY MISSION: «: «> 
.TO PENERTATE THE LETHAL LABYRINTH OF LA 
RS AND DEFUSE THE NUCLEAR BOMB THAT HAS 
BEEN PLACED SOMEWHERE IN IT.": GO SUB 81 
217) 
4@1@ LET C$="TO HELP YOU, YOU HAVE BEEN 
GIVEN A ~SUPERTANK~. THIS IS THE ONLY ME 
ANS OF PROTECTION YOU WILL HAVE. ONCE IN 
SIDE THE LABYRINTH YOU WILL HAVE TO PERI 
DRTCALLY COLLECT FUEL ~f~, FOOD ~d~ AND 
RADIOACTIVE URANIUM TO BE USED IN YOUR L 


ASERS ~u~.": GO SUB 81a 
4@15 LET C#="WHENEVER YOU ARE STATIONARY 
» YOU WILL EAT FOOD.": GO SUB 81aa 


482@ LET C$="WATCH OUT FOR THE ENEMY LAS 
ER POSITIONS ~l~, THEY WILL ALWAYS STRIK 
FE WHEN IN RANGE. ALSO WATCH OUT FOR THE 
(BURIED) MINES?999": GO SUB 81aa 
4@3@ LET C$="MAKE YOUR WAY TO THE BOMB ~ 
c?~ AND DEFUSE IT.": GO SUB 81a 
4848 LET C$="CONTROLS -------- 
LEFT JOYSTICK CONTROLS MOUVEMENT A 
ND THE BUTTON FIRES YOUR LASERS. 
KEYBOARD CONTROLS 
petpreneee Sn 


57 


58 Graphic Adventures for the Spectrum 48K 


TO FIRE 
~4~ TO MOVE UP 
~3~ TO MOVE DOWN 
“j* TO MPOWE LEFT 
~2~ TO MNOVE RIGHT 
GOOD LUCK 
oe ": GO SUB 810 
4@5@ GO TO 1146 
8000. IF FUEL1=@ THEN GO TO 8618 
8682 PAPER 2: INK 1: BRIGHT @ 
8064 FOR I=FUEL TO FUEL1 STEP ~-1 
8086 PLOT 11@+I,151: DRAW @,-7 
8008 NEXT I: LET FUEL=FUEL1: LET FUEL1=@ 
- PAPER 1: INK 7: BRIGHT 1: IF FUEL<=3 T 
HEN INK 7: PLOT 57,47: DRAW @,-3: LET E 
="FUEL": GO TO 93660 
8@1@ IF LASER1=@ THEN GO TO 882@ 
8612 PAPER 4: INK 1: BRIGHT @ 
e@14 FOR J@LASEE TO LASER] STEP -1 
8616 PLOT 11@+1,119: DRAW @,-7 
8818 NEXT I: LET LASER=LASER1]: LET LASER 
1=@: PAPER 1: INK 7: BRIGHT 1: IF LASERS 
=3 THEN LET E$="LASER": GO TO 3004 
862@ LET TINE1=TIME~-1 
8822 PAPER 3: INK 1: BRIGHT @ 
8624 FOR IJ=TIME TO TIME STEP =1 
8626 PLOT 6+1,79: DRAW @,-7 
BOZe NEXT 1: LET TIME=TIMNE1: LET TIMEL=@ 
PAPER 12 INK 7: BRIGHT 1: IF TIME<=3 T 
HEN LET E$="TIMNE": GO TO 3648 
8030 IF DAN1=@ THEN GO TO 884@ 
8032 PAPER 2: INK 1: BRIGHT @ 
8034 FOR I=DAM TO DAM] STEP ~-1 
8836 PLOT 6+1,47: DRAW @,-7 
8038 NEXT I: LET DAM=DAM1: LET DAM1=@: P 
APER 1: INK 2: BRIGHT 1: IF DAMN<=3 THEN 
LET E$="DAN": GO TO 9aa@a 
8649 IF FOOD1=@ THEN RETURN 
8842 PAPER 4: INK 1: BRIGHT @ 
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8044>FOR I=FOODTO FOODISTEP ~-1 
8246 PLOT 134+1,47: DRAW @,-7 
8248 NEXT I: LET FOOD=FOOD1: LET FOOD1=@ 
> PAPER 1: INK 7: BRIGHT 1: IF FOOD<=3 T 
HEN LET E$="FOOD": GO TO 3800 
8243 RETURN 
810@ INK 7: BRIGHT 1: PAPER 1 
81106 FOR J=1 TO LEN C$ 
S115 IF 1425 THEN PRINT AT 2@,1;C8CI-29 
TO 1}: BEEP .@1,5: PAUSE 1: GO TO 8130 
8128 PRINT AT 2@,31-I1;C$C1 TO IJ: BEEP 
1,5: PAUSE 2 
8138 NEXT I 
814@ PAUSE 5@: PRINT AT 20,13" 
>: RETURN 
8288 IF DIR<>@ THEN GO TO 8228 
S282 FOR J=T=1 TO Y-4 STEP —1 
8204 IF M$CI,XJ="c" OR M$CI,XJ="b" OR M$ 


CI;XJ="l" OR M$CI,XJ="F" OR MSCI,XJ="d" 
OR M$CI,xXJ="s" OR M$CI,XIJ="u" THEN GO T 
9 8283 

8207 IF M$CI,X)J=" " THEN NEXT I 

8208 IF M$CI,xJ=" " THEN INK 2: PLOT 51 


:144: DRAW 8,30: BEEP .1,4@: INK 1: PLOT 
51,144: DRAW @,3@: LET LASER1I=LASER-5S: 
LET 2=I: GO SUB 88@@: RETURN 
6229 IF I“T=-1 THEN BEBP .1948? LET LASE 
R1=LASER-S: LET @=I: GO SUB 8808: GO TO 
8212 
8218 INK 2: PLOT 51,144: DRAW @,(CCY-I)- 
1)*8)-1+: BEEP .1,4@: INK 1: PLOT 51,144: 
DRAW @,CCCY-IJ-13*6)J—1: LET 2=1: LET LA 
SERI=LASER-S: GO SUB 8800 
8212 LET I=2: IF M$CI,;XJ="L" THEN FOR J 
=f TO 1 STEP -14 INK J? PRINT AT 4—-(T=1) 
sO?7°I"2 GEEP .leJd? WEAT J). LEI Mel1,A2=" 
"? PRINT AT 4-C'-1i,@3" “2 LET Cee"LASE 
R POSITION DESTROYED.": GO SUB 818@: RET 
URN 
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8213 RETURN 

8228 IF DIR<>2 THEN GO TO 8242 

8222 FOR I=Y+1 TO Yt4 

8224 IF M$CI,XJ="c" OR M$CI,XIJ="b" OR M$ 
CI,XJ="L" OR M$CI,XJ="Ff" OR MSCI,XJ="d" 

OR M$CI,xXJ="s" OR M$CI,XJ="u" THEN GO T 
0 8229 

8226 IF M$CI,XJ=" " THEN NEAT I 

8227 IF I=Y+1 THEN BEEP .1;4@: LET LASE 
R1=LASER-S: LET 2=I: GO SUB 88088: GO TO 

8232 

8228 IF M$CI,XJ=" “ THEN INK 2: PLOT 51 
»135: DRAW @,-3@: BEEP .1,;4@: INK 1: PLO 
T 51,135: DRAW @,-30: LET LASER1=LASER-5S 
* LET 2=I]: GO SUB 8880: RETURN 

S225 IF 1=¥+1 THEN GEEP .1.4¢@: LET LASE 
R1=LASER-S: LET 2=I: GO SUB 88@@: GO TO 

8232 

823@ INK 2: PLOT 51,135: DRAW @,-CCCI-Y) 
-1)*8)+2: BEEP .1,;4@: INK 1: PLOT 51,135 
: DRAW @y—COCI-T}-13881+2: LET @=1* Let 

LASER1=LASER-S: GO SUB 80a 

8232 LET I=2: IF M$CI,X)="l" THEN FOR J 
=/ [9 1 STEP -1= INK J* PRINT QT 4eCl=T2 
265°": BEEP .1,J: NEXT J: PRINT AT 4+CI 
~“Y2,G3" “S LET MSCI,aI=° “: LET Ce="LASE 
R POSITION DESTROYED. ": GO SUB 818@: RET 
URN 

8233 RETURN 

8240 IF DIR<>3 THEN GO TO 8264 

8242 FOR I=xX-1 TO X-6 STEP -1 

8244 IF M$CY,IJ="c" OR M$CY,IIJ="b" OR M$ 
Cis izg="l" OR MSCs 13="F° OR ASlY,;1J=<"0" 

OR M$CY,JJ="s" OR M$CY,1J="u" THEN GOT 
0 8249 

8246 IF M$CY,]J=" " THEN NEXT I 

8247 IF I=xX-1 THEN BEEP .1,4@: LET LASE 
R1=LASER-5S: LET 2@=I1: GO SUB 8@@@: GO TO 

8252 
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8248 IF M$CY,IJ="_" THEN INK 2: PLOT 47 
-14@: DRAW -47,@: BEEP .1,;4@: INK 1: PLO 
T 47,14@: DRAW -47,@: LET LASER1=LASER-5 
> LET 2=I: GO SUB 88@@: RETURN 

8243 IF I=X-1 THEN BEEP .1,;4@: LET LASE 
R1=LASER-5: LET Z=I: GO SUB 8888: GO TO 
8252 

825@ INK 2: PLOT 47,148: DRAW -CCCCX-I)- 
1)*8)-2),0: BEEP .1,4@: INK 1: PLOT 47,1 
46: DRAW -CCCCX-I13-1)*8)-2),@: LET 2=I: 
LET LASER1=LASER-5S: GO SUB 8aaa 


8252 LET I=@: IF M$CY,1J="l" THEN FOR J 
=/ [0 1 STEP -1? INK J? PRINT AT 4s,6#CI- 
AJ3”° lL": BEEP .laJd? NEAT J? PRINT AT 436+ 
CI-xX): LET M$CY,IJ=" “: PAPER 1: LET DAM 


=113: LET C$="LASER POSITION DESTRDYED.”" 
> GO SUB 8188: RETURN 

8253 RETURN 

826@ REM 

8262 FOR I=xX+1 TO X+6 

8264 IF M$CY,IJ="c" OR M$CY,1J="b" OR M$ 
CY¥,1TI="L" OR MSCY;,IIJ="F" OR MSCY,;1I="d" 
OR MSCY,IJ="s" OR MS$CY,1TJ="u" THEN GO T 
O 82639 

8266 IF M$CY¥;]3J=" "“ THEN NEXT I 

e268 IF MNe(ifsl2J=" * THEN INK-.2* PLOT 36 
>14@: DRAW 47,@: BEEP .1,4@: INK 1: PLOT 
56,140: DRAW 47,@: LET LASERI=LASER-S: 
LET 2=I: GO SUB 88@@: RETURN 

62609 IF J=x*+1 THEN BEEP .1,;40?% LET LASE 
RI=LASER-S: LET @=I: GO SUB 8888: GO TO 
8272 

8270 INK 2: PLOT 56,140: DRAW CCCI-x)-1) 
*8)-2,@: BEEP .1,4@: INK 1: PLOT 56,140: 
DRAW CCCI-XJ-1)*8)-2,0: LET 2=I: LET LA 
SER1=LASER-S: GO SUB 88@aa 


S272 LET I=2: IF M$CY¥,1J="l" THEN FOR J 
=7 TO 1 STEP -1? INK J: PRINT AT 4,6+CI- 
4J3"1"2 BEEP .1,J? NEXT J: PRINT AT 4,6+ 


Cl=K15" "3 LET MSCT,I3=" “: LET Cs="LASE 
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R POSITION DESTROYED.": GO SUB 81@@: RET 
URN 

8273 RETURN 

8388 IF M$CY,X)J="*" THEN LET FUEL=137: 
PAPER 2: PRINT AT 3,143" 

": PAPER 1: LET C$="YOU HAVE RENEWED YO 
UR FUEL STORE": GO SUB 8100: LET M$CY,X) 
=" ": RETURN 
8385 IF M$CY,X)="d" THEN ‘LET FOOD=113: 
PAPER 4: PRINT AT 16,173" . 
> PAPER 1: LET C$="YOU HAVE RENEWED YOUR 

FOOD STORE.":: GO SUB 8100: LET M$CY,X) 
=" "> RETURN 
8318 IF M$CY,X)J="u" THEN LET LASER=137: 

PAPER 4: PRINT AT 75143" 

": PAPER 1: LET C$="YOU HAVE RENEWED Y 
OUR STORE OF RADIOACTIVE URANIUM. ": GO S 
UB 8108: LET M$CY,X)=" ": RETURN 
8328 IF M$CY,XJ="c" OR M$CY,XJ="b" THEN 

GO TO 39480 
8338 RETURN 
8480 FOR I=xX-1 TO X-6 STEP ~-1 
8405 IF M$CY,IJ="s" OR M$CY,1I)J="d" OR MS 
f¥,1J="f" OR MeCY, 1y="n0" OR MelY; Ji="s" 
OR M$CY,I)J="b" THEN GO TO 8442 
8418 IF M$CY,IJ="_" THEN NEXT I 
8411 IF M$CY,I)<>"l" THEN GO TO 844@ 
8415 IF I=xX-1 THEN BEEP .1,4@: GO TO 84 
38 
8428 INK 2: PLOT (CCI-X)+7)*8,14@: DRAW 4 
2-CCCI-X)+7)X8)-1,2 
8425 INK 1: BEEP .1,4@: PLOT CCI-XJ+2)x8 
148: DRAW 47-CCCI-X)+7)x8)-1,@ 

8438 LET DAM1=DAM-INT C1@XRNDJ: GO SUB 8 
B22 

8435 LET C$="HIT BY LASER FIRE229": GO SU 
B 8122 

844@ FOR I=X+1 TO Xt+6 

8445 IF M$CY,IJ="s" OR M$CY,1J="d" OR M$ 
C(¥ylj="F" Oe MST, Ti=“u" OF meCT, li<"*c" 
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OR M$CY,13J="b" THEN GO TO 8486 

B451 IF M$CY,13=" " THEN NEAT I 

8453 IF M$CY,1I)<>"L" THEN GO TO 8482 
B455 IF J=X%+1 THEN BEEP .1,40: GO TO 84 
70 

846@ INK 2: PLOT 56,140: DRAW CCI-X)x8)- 
18,0 

8465 INK 1: BEEP .1,4@: PLOT 56,14@: DRA 
W CCI-xX)*8)-10,@0 

8478 LET DAM1=DAMN-INT C1@x*XRNDJ: GO SUB 8 
820 

8475 LET C$="HIT BY LASER FIRE?2": GO SU 
B 8188 

8480 FOR I=Ytl TO Yt4 

B8485> IF M$CI,XJ="s"OR M$CI,XIJ="d"OR MSC! 
»SJ="F"OR MECTI,XI="u"OR M$CI,XJ="c"OR MF 
CI,;A4J="b"THEN GO TO 85208 

8498 IF M$CI,XJ=" " THEN NEXT I 

8431 IF M$CI,XIO"l" THEN GO TO 8528 
e455 IF [=¥+l THEN BEEP .1;4@> GO [TO 85 
12 

8580 INK 2: PLOT 51,135: DRAW @,-CCCI-Y) 
“LIXEIT1 

S985 INK 12 BEEP .1s4@2 PLOT 51,135? DORA 
W @,-CCCI-YJ-1)x*8)+1 

851@ LET DAM1=DAN-INT C1@xXRNDJ: GO SUB 8 
Baa 

8515 LET C$="HIT BY LASER FIRE?2": GO SU 
B 8180 

6220 FOS I=Tt-1 TO Y<4 STEP =] 

8525 IF M$CI,XJ="s" OR M$CI,XJ="d" OR M$ 
CI,XJ="f" OR M$CI,;XJ="u" OR M$CI,X)="c" 
OR M$CI,XJ="b" THEN RETURN 

8538 IF M$CI,;xJ=" “ THEN NEXT I 

8532 IF M$CI,xX)<>"L" THEN RETURN 

S535 IF 1=f-1 THEN BEEP .1:4@: GO TO 85 
5 

8540 INK 2: PLOT 31,144: DRAW @,-CCCI-Y) 
+13x8)-1 


63 


64 Graphic Adventures for the Spectrum 48K 


8545 INK 1: BEEP .1,4@: PLOT 51,144: DRA 
W Os—COlLI-TI +1) *8)-1 
8558 LET DAM1=DAM-INT C1@XRNDJ: GO SUB 8 
288 
8555 LET C$="HIT BY LASER FIRES2": Go Su 
B 818@: RETURN 
8880 INK 7: BRIGHT 1: FOR I=Y-4 TO Trt4 
8881 PRINT AT Y-CI+4),@j;M$CI3JCX-6 TO Xt+6 
J 
8882 NEXT I] 
8883 IF DIR=@ THEN PRINT AT 45;63"m" 
8884 IF DIR=1 THEN PRINT AT 45,63"n" 
8885 IF DIR=2 THEN PRINT AT 4,63"0" 
8886 IF DIR=3 THEN PRINT AT 4,63"p" 
8887 RETURN 
8890 LET J$=INKEY$ 
8895 RETURN 
3606 FOR I=? TO 1 STEP -1: INK I 
3616 IF DIR=@ THEN PRINT AT 4,63"m" 
3615 IF DIR=] THEN PRINT AT 4,63"n" 
3820 IF DIR=2 THEN PRINT AT 4,63"0" 
3825 IF DIR=3 THEN PRINT AT 45;6;"p" 
3638 BEEP .2;1 
3635 NEXT I 
3646 IF ES="FUEL" THEN LET C$="YOU RAN 
OUT OF FUEL. 

GAME OVER, ": GO SUB 810@: 
GO TO 3168 
38045 IF E$="LASER" THEN LET C$="YOU RAN 
OUT OF LASER POWER. 

GAME OVER, "3 GO SU 
B 8186: GO TO 93188 
3038 IF E@="TIMNE” THEN LET C#="Y0OU RAN 
OUT OF TIME AND THE BOMB BLEW UP. 
GAME OVER. 
": GO-SUB 818@: GO TO 3148 

93055 IF ES="FOOD" THEN LET C$="YOU RAN 
OUT OF FOOD. 

GAME OVER, ": GO SUB 8188: 


m 
n 
' 


Supertank 


69 TO 3144 
226@ IF E$="DAN" THEN LET C$="YOU TOOK 
TOO MUCH DAMAGE. 
GAME OVER. ": GO SUB 81 
22 
me@o5 IF ES="MINE” THEN LET C#="YOU HIT 
& MINE, BAD LUCK 28, YOU WERE BLOWN TO UV 
eer LITTLE BITS 228. 
GAME OVER. ": GO SU 
B 8100 
3186 LET SCORE=INT (€8@-x)+(49-T): IF SCO 
RE=1 THEN LET SCORE=@ 
91@1 LET SCORE=1@@-SCORE 
9142 PRINT AT 20,13" SCORE "3SC 
ORE 3"%": FOR I=] TO 2@@: NEAT 1 
93183 PRINT AT 26,1@;"PLAY AGAIN ?" 
3110 IF INKEY$="Y" OR INKEY$="Y" THEN L 
ET C$="PLEASE WAIT - SETTING UP NMAP.": G 
O SUB 8186: GO TO 5@e 
312@ IF INKEY$="N" OR INKEY$="N" THEN N 
EW 
3138 GO TO 39114 
S400 BEEP .25;282 BEEP .23,28: BEEP .3;2 
@: BEEP «.2asZ2G2 BEEP .Zsa24? BEEP . 25524 
* BEEP «3,242 BEEP .25_.2Z232 BEEP .2Z3521¢ 
BEEP aSeZ1°2 BEEP 25,242 BEEP «33242 BEE 
P ,8;28 
3418 LET C$="WELL DONE 2222 YOU HAVE SA 
FELY DEFUSED THE BOMB 
~: GO SUB 8186: GO TO 39188 
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Scenario 


Many aeons ago in the mystic folds of time, there lived an 
insignificant little wizard. He spent most of his time dabbling in 
white magic, until one great day, while taking a walk on the 
ethereal plane, he stumbled upon the all-powerful weapon The 
Sword of Roac; a weapon forged in the fires of everlasting light by 
the great god Roac. After many battles and victories however, the 
wizard became extremely lazy, and the powerful sword became 
unused and was eventually lost. 

Much later, the sword was found and used by the fearsome Evil 
Overlord to his own wicked end. It is your task, Oh mighty 
warrior, to regain control of the sword and to protect the future of 
civilization — but beware, to gain possession of the sword you 
must first destroy the Evil Overlord. 


EEO 
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Hints on Entry 


The program is very long and takes up the majority of the 48K of 
RAM. It is relatively simple to enter provided special care is taken 
with the map (lines 15-255) and the spaces in the lines containing 
special textual messages. The map contains mostly spaces and full 
stops, and these should be entered very carefully noting that each 
line should contain 50 characters. 

When the program has been completely entered and checked it 
should be saved on tape using the command 


SAVE “DRAGON” LINE 5 


After which, the loading and running of the program should be 
automatic. 


Techniques 


If you have entered some of the programs found in this and other 
books, you will have no doubt noticed that some stunning effects 
and graphics can be created using the two simple commands 
PLOT and DRAW. 

The screen display on your computer is made up of pixels 
(dots) which can be turned on or off. This process is controlled by 
switching between the paper and the ink colours, and using the 
PLOT command as follows: 


PLOT 150,149 


This will plot a single pixel at (150,149) using the current ink 
colour; this pixel can be removed, if necessary, by changing the 
ink colour to the paper colour and replotting the point. 

The following simple routine will cause a single pixel to flash 
on and off: 


10 PAPER 0 

20 INK7 

30 PLOT 100,50 
40 INKO 

50 PLOT 100,50 
60 GOTO 20 
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As well as individual points, lines can be drawn on the screen; 
this is achieved by using the DRAW command. This command 
will produce a line from the current plot position in a direction 
specified by its two parameters. 


Example 


To draw a line from 10,10 to 20,15 we would require two 
statements 


PLOT 10,10 
DRAW 10,5 


The first statement sets the screen position and the second draws 
the line. 


To anyone familiar with mathematical notation, the para- 
meters of a DRAW command are rather like a column vector 
written in co-ordinate form. As with a vector, the parameters can 
be positive (up and right), negative (down and left) or zero which 
produces a vertical or horizontal line. 

The DRAW command can also be used to construct curves, 
provided an extra parameter is included to indicate the amount of 
curvature (given in radians). Remember that there are 2 PI 
radians in a circle, so to construct a semicircle the following 
command would be used: 


DRAW 50,10,PI 


Some of the special effects which can be achieved using the PLOT 
and DRAW commands are to be seen in the title screen of the 
program. 


Playing Instructions 


The object of the game is to find the Sword of Roac, but before you 
can do this, you must complete a series of tasks. The first of these 
is to find the Key, which allows entry into the room where the 
sword is hidden. Another task being to gain enough experience, 
by killing monsters, to defeat the Overlord. 
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Monsters 


During your travels through the maze you will encounter a 
number of monsters, a few of which are described below. 


DRAGONS These are the most powerful, and it is unwise 
to attempt to kill them without some kind of 
special weapon. Unfortunately, once cornered, 
they will not let you escape so it is imperative 
for you to locate and memorize the position of 
the dragon’s lairs. 

MINOTAURS _ These half-man, half-bull creatures should not 
cause too many problems for a mighty warrior 
like yourself. 

UNICORNS An unknown entity, friendly or dangerous, 
you will never know. 


When you encounter and attack a monster, the outcome of the 
combat will depend on several factors. 


STRENGTH This concerns your general physical condition 
and decreases during the game. It can be re- 
plenished by eating a meal, but you only have 
ten meals available, so use them wisely. 


AGILITY This concerns your ability to move quickly 
during combat and to make quick escapes if 
necessary. 

SKILL This is your general level of fighting ability and 


remains constant throughout the game. 

EXPERIENCE _ This improves with every battle you win. A 
great deal of experience will be required for 
combat with the Evil Overlord. 


All these parameters are taken into consideration during 
combat, and their values should be watched carefully throughout 
the game. 


Commands 


Although this game is graphical in nature, with a three- 
dimensional maze shown on the screen, many of the commands 
are entered in a manner similar to that of purely textual 
adventures, and some of them are described below. 
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TAKE Used to pick up an object in front of you. 

OPEN Used to open a door, chest, gate, etc. 

UNLOCK _ Used to unlock a door, chest, gate, etc. 

EAT This will increase your strength, but remember you 
only have ten meals. 

KILL This command, when used on its own, will 


initialize unarmed combat with a monster. If a 
weapon is to be used, then it should be stated, e.g. 
kill dragon with sword. 


ASK This can be used to ascertain useful information 
from friendly characters. 

SAVE Saves the game at the current position. 

LOAD Loads a previously saved game from tape. 

Movement 


There are four commands relating to movement around the maze, 
and these are shown in Table 3. 


Table 3 
Command Direction 
W/WEST Move or face west 
N/NORTH Move or face north 
E/EAST Move or face east 
S/SOUTH Move or face south 


Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 
2) SPACES WITHIN THE TEXT SHOULD BE ENTERED AS LISTED. 


OOO EOO————————ee——— ee 
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S CLEAR 
6 POKE 23698,8 
te ee es ok Ck ewe we pala ween be eee 


ee ee ee ed 
ee 


i 


3@ LET AS=AS+", , tee8 64 a4 «& @ 
66 LET AS=ASt", 
78 LET AS=ASt", 
£ L 4 Co. ls re 
Be LE] Pee sia ed we ee wee 
S@ LET AS]ASt".T 8 naw 
108 LET AS=AS+",.. LL. 4 

116 LET A¢=A¢+" 


126 LET A¢S=AS$t+" 


ee 2 ed 


E oer " 


V38 LET A@-Atge™, wnawis » Si wk 


£22 LET Ae=AGt”, Base wianwe = 
6b Ws ie ‘ »G F . 


Sp a ms 


15@ LET AS=AS+", . LL, : » » 2G 


164 LET AS=ASt", Conk cee 
176 LET A*=ASt", LU & K 
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188 LET AS=AS+", 


136 LET AS=ASt",. nes cf ts wwe » E 


246 LET AS=A$t", 


2 Bal aie aS gb Gale ome arnt wl Oe " 

216 LET AS=ASt" ce  Se@8s 

Aaa RS Be i wm emrenk pine GUE PS ’ 

226 LET AS=ASt" 2 Eosacas S850 
z . ene ow ee wl 

238 LET AS=ASt" 2 


246 LET AS=ASt", ....S ois 1 
of H : ra 
25@ LET AS=ASt+" 


> 2 ee 5 8 DD 


2-2-2722 23737 DoD BD oOKR HF Fs TTB E 
sp epee de ee eee De Bea we DD wee wD 
> 22> > > > does eer we oO ewe A Re Rw EDD 


ee ee 


388 GO SUB 39284 

1@@@ PAPER @: INK 6: BORDER @: CLS 

1@1@ PLOT 7,63: DRAW 247,@: DRAW @,1@5: 
DRAW -247,@: DRAW @,-185: PLOT 7,63: DRA 
W 247,;@: PLOT 168,168: DRAW @,-104 

162@ INK 7: BRIGHT 1: PRINT AT 2,;213;"STR 
ENGTH" 3AT 3,;283"18@" ;AT 4,213;"AGILITY" 3A 
T 5;2835"186" 53AT 6,213"SKILL"3AT 7,283" 1 
B" SAT 8,21;"MEALS"5AT 9,28;" 1@"3AT 18,2 
13;"EXPERIENCE" 3AT 11,283" @" 

1@3@ LET 0=] 252 

1635 LET FALL=@ 

184@ LET D$="N": LET ST=1@@: LET DEX=18@ 
> LET SKI=1@: LET MEA=1@: LET EXP=@: LET 
DS=@: LET KOR=@: LET MON=@: LET QUEST=@ 
11886 GO SUB 22802 

1116 GO TO 48a 

1393 ‘STOP 
2066 INK @: FOR I=1 TO 13: PRINT AT I,13 
: “: NEXT I: INK 7: BR 
IGHT 1: IF D$<>"N" THEN GO TO 2188 
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2882 PRINT AT 2,83;"NORTH": IF ASCO-S@)=" 
-" THEN GO TO 2816 


2684 IF A$CO-51)="." THEN PLOT 52; 136: 
DRAW 2@,-8: DRAW @,-24: DRAW -28,-8 

2005 IF A¢CO-49)="." THEN PLOT 115,136: 
DRAW -20,-8: DRAW @,-24: DRAW 28,-8 
2066 IF AS$CO-S51)<>"." THEN PLOT 52,128: 
DRAW 28,@: PLOT 52,128: DRAW @,-24: PLO 
T 52,104: DRAW 20,4: IF AS$(O-188)<>"." T 

HEN PLOT 72,128: DRAW @,-24 

Boo? IF ASCO=43)<¢>",." THEN PLOT 87,128: 


DRAW 18,@: PLOT 115,128: DRAW @,-24: PL 
OT 37,164: DRAW 18,@: IF AS$C(O-188)<>"," 
THEN PLOT 397,128: DRAW @,-24 


2008 IF A$(O-18@)="." THEN PLOT 72,128: 
DRAW 24,@: PLOT 72,184: DRAW 24,0 

2610 IF A#CO-1)="." THEN PLOT 8,152: DR 
AW 44,;-16: DRAW @,-4@: DRAW -44,-16 

2626 IF AS$COt1)="." THEN PLOT 159,152: 
DRAW -44,-16: DRAW @,-4@: DRAW 44,-16 
204@ IF A$(CO-1)<>"." THEN PLOT 8,136: D 


RAW 44,@: PLOT 8,96: DRAW 44,@: PLOT 52, 

136: DRAW @;-428 

2@5@ IF AS$COt1)<¢>"." THEN PLOT 115,136: 
DRAW 44,@: PLOT 115,96: DRAW 44,@: PLOT 
115,136: DRAW @,;-4@ 

2@6@ IF A$(O-S5@)="." THEN PLOT 52,136: 

DRAW 63,4: PLOT 52,96: DRAW 63,04 

2078 RETURN 

21846 IF D$€<>"S" THEN GO TO 2288 

2182 PRINT AT 2,83;"SOUTH": IF ASCOtSO)=" 

." THEN GO TO 2114 


2184 IF AS(OrSld=".” THEN PLOT &2, 136: 

DRAW 2@,-8: DRAW @,-24: DRAW -20,-8 

21@5 IF A$COt439)="." THEN PLOT 115,136: 
DRAW -2@,-8: DRAW @,-24: DRAW 20,-8 
2166 IF As$COtS13<>"." THEN PLOT 52,128: 
DRAW 2@,@: PLOT 52,128: DRAW @,-24: PLO 
T 52,104: DRAW 28,@: IF A$(O+10B)<>"." T 


HEN PLOT 72,128: DRAW @,-24 
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2187? IF A$COt4930>"." THEN PLOT 937,128: 
DRAW 18,@: PLOT 115,128: DRAW @,-24: PL 
OT 37,164: DRAW 18,6: IF AS(O+180)<>"." 
THEN PLOT 97,128: DRAW @,-24 


2108 IF ASCOt1OG)="." THEN PLOT 72,128: 
DRAW 24,8: PLOT 72,1044: DRAW 24,0 

2118 IF AsCOr]1)="," THEN PLOT 8,152: DR 
AW 44;-16: DRAW @,-4@: DRAW -44,-16 

2i2@ iF neé(o-1J=",” THEN FLOT 153,152: 
ORAW -44;-16: DRAW @,-4@: DRAW 44,-16 
2140 IF ASCOF1I@"." THEN PLOT 6,136: D 


RAW 44,4: PLOT 8,96: DRAW 44,@: PLOT 52, 

136: DRAW @,-4@ 

4156 JF ASCOS1I<>".." THEN PLOT 115,136% 
DRAW 44,0: PLOT 115,96: DRAW 44,@: PLOT 
115,136: DRAW @,-4@ 

2166 IF A$COtS@J="," THEN PLOT 52,136: 

DRAW 63,@: PLOT 52,96: DRAW 63,24 

2178 RETURN 

2206 IF D$<>"W" THEN GO TO 2388 

2262 PRINT AT 2,83;"WEST": IF AS(O-1)="," 
THEN .GO JO 2210 


2264 IF ASCOtT49)="." THEN PLOT 52,136: 
DRAW 24,-8: DRAW @,-24: DRAW -26,-8 

2263 IF Ae{(O-SlJ="."* THEN PLOT 115, 136% 
DRAW -2@,-8: DRAW @,-24: DRAW 2@,-8 
2206 IF AS$COt49)<>"." THEN PLOT 52,128: 
DRAW 28,8: PLOT 52,128: DRAW @,-24: PLO 
T 52,104: DRAW 28,0: IF ASCO-2)<>"." THE 
N PLOT 72,128: DRAW @,-24 

2267 IF A@CO-S12¢>"." THEN PLOT S37; l2e? 
DRAW 18,@: PLOT 115,128: DRAW @,-24: PL 
OT 37,184: DRAW 18,0: IF AS$CO-2)<>"." TH 

EN PLOT 37,128: DRAW @,-24 

2200 IF ASCO-2Z)e"," THEN PLOT 72; 1Ze? D 

RAW 24,4: PLOT 72,104: DRAW 24,4 

2216 IF A$(COt5S@)=",." THEN PLOT 8,152: D 
RAW 44,-16: DRAW @,-4@: DRAW -—-44,-16 
222@ IF A¢(CO-S@)J="." THEN PLOT 159,152: 


[OO EEO 6=—|— ll 
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DRAW -44,-16: DRAW @,-4@: DRAW 44,-16 
2248 IF A$(O+SB)<>"." THEN PLOT 8,136: 
DRAW 44,0: PLOT 8,36: DRAW 44,@: PLOT 52 
,136: DRAW @,-42 
2258 IF A$(O-5@)<>"." THEN PLOT 115,136 

DRAW 44,0: PLOT 115,96: DRAW 44,@: PLO 
T 115,136: DRAW @,-40 
2268 IF A$(O-1)J="." THEN PLOT 52,136: D 
RAW 63,@: PLOT 52,96: DRAW 63,8 
227@ RETURN 
2382 PRINT AT 2,83"EAST": IF ASCOt1)="," 

THEN GO TO 2310 
2384 IF A$(O-49)="." THEN PLOT 52,136: 
DRAW 28@,-8: DRAW @,-24: DRAW -28,-8 
2395 IF A$(O+S51)="." THEN PLOT 115,136: 
DRAW -2@,-8: DRAW @,-24: DRAW 20, -8 
23@6 IF A$(O-49)<>"." THEN PLOT 52,128: 
DRAW 28,@: PLOT 52,128: ORAW @,-24: PLO 
T 52,104: DRAW 28,8: IF AS(O+2)<>"." THE 
N PLOT 72,128: DRAW @,-24 
23@7? IF A$(O+S1)<>"." THEN PLOT 97,128: 
DRAW 18,0: PLOT 115,128: DRAW @,-24: PL 
OT 97,184: DRAW 18,@: IF asCO+2)<>"." TH 
EN PLOT 97,128: DRAW @,-24 
2388 IF A$(O+Z2)="." THEN PLOT 72,128: D 
RAW 24,@: PLOT 72,184: DRAW 24,a 
2318 IF A¢(O-S@)="." THEN PLOT 8,152: D 
RAW 44,-16: DRAW @,-4@: DRAW -44,-16 
2328 IF A$(O+S@)="." THEN PLOT 159,152: 

DRAW -44,-16: DRAW @,-4@: DRAW 44,-16 
234@ IF A$(O-S@)<>"." THEN PLOT 8,136: 
DRAW 44,8: PLOT 8,96: DRAW 44,9: PLOT 52 
,136: DRAW @,-40 
2358 IF A$(O+S@)<>"." THEN PLOT 115,136 
: DRAW 44,@: PLOT 115,96: DRAW 44,@: PLO 
T 115,136: DRAW 2@,-48 
236@ IF A$(O+1)="," THEN PLOT 52,136: D 
RAW 63,@: PLOT 52,96: DRAW 63,4 
2378 RETURN 
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4008 LET J$="": PRINT AT 15,13 INK 73 BR 
IGHT 13" 
4025 PRINT AT 15,23" 


": FOR I=16 TO 21: PRINT AT I 


383" 2 oN 
EXT I 
481@ LET K$=INKEY$: IF K$="" THEN GO TO 
4619 


4826 BEEP .@5, 32 

4@3@ IF CODE K$=13 THEN GO TO 4144 

4@4@ IF CODE K$=12 AND J$="" THEN GO TO 
4088 

4@5@ IF CODE K$=12 THEN LET J$=J$C1 TO 
(LEN J$-1)3: FOR I=15 TO 21: PRINT AT I; 
Q3" "2 NE 
*T IT: PRINT AT 15,15">"34¢: GO TO 4818 
4@52 LET J$=J#$+kK$ 

4@6@ PRINT AT 15,235J4$ 

487@ GO TO 4619 


4100 LET J¢=J¢+" “: LET LAST=1: DIM Q$(2 
8,26) 

4126 LET V=1: FOR I=1 TO LEN J$ 

94122 IF J$CIJ=" " THEN LET Q$(UJ=J$CLAS 


T t@ J=i22 LE? LAST=Hf"l: EET U=Grl 

4125 NEXT I] 

4192 FOR f=1 JO U-1 

4143 IF Q$CIJC1 TO 3)="THE" THEN FOR H= 
It] TO VY: LET Q$CH-1)=Q$CH): NEXT H 

4144 NEXT I 

4145 GO TO 4286 

415@ LET RND=RND: IF RND>.8 THEN PRINT 

AT 21,;23;"1 DO NOT UNDERSTAND, RETYPE": F 
OR I=] TO 5@: NEXT I: GO TO 4486 

4166 IF RND>.6 THEN PRINT AT 21,23"JI DI 
D NOT HEAR YOU, TRY AGAIN": FOR I=] TO 5 
@: NEXT I: GO TO 4884 

4178 PRINT AT 21,;23"PARDON ?": FOR I=1 T 
O 5@: NEXT I: GO TO 4880 

42@@ IF MON=1 AND A¢$(OJ="S" AND QF$C1)C1 
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TO 4)4>"KILL" THEN GO SUB S938@@: PRINT A 
T 16;23;"THE OVERLORD DRIVES HIS SWORD 
INTO YOUR HEART. YOU ARE DEAD": GO TO 35 
210) 

4205 IF Q€$C1)C1 TO 4)="LOO0K" THEN GO TO 
4488 

4210 IF Q¢$€1)C1 TO 4)="TAKE" THEN GO TO 
4588 

4226 IF Q$C1)C1 TO 4)="OPEN" THEN GO TO 
4686 

94236 IF Q@$C1)C1 TO 6)="UNLOCK" THEN GO 
TO 47286 

4246 IF Q$(1)C1 TO 3)="EAT" THEN GO TO 
4882 

4260 IF Q$C1)C1 TO 4)="QUIT" THEN NEW 
4276 IF Q$(1)C1 TO 4)="SAVE" THEN GO TO 
5188 

4288 IF Q$€1)01 TO 4)="LOAD" THEN GO TO 
3286 

4296 IF Q$(€13C1 TO 4)="KILL" THEN GO TO 
5388 

4306 IF Q$(1)C1 TO 33="ASK" THEN GO TO 

5488 

94316 IF Q@$C1)C1 TO SJ="CLIMB" THEN GO T 

O 5588 

4326 IF Q$C1)C1 TO 4)="WEST" OR Q$(1)01) 

="W" THEN GO TO 5688 

94336 IF Q$C€1)C1 TO 4)="EAST" OR Q$(1)013) 

="E" THEN GO TO 5780 

434@ IF Q$C1)C1 TO 5)="SOUTH" OR Q$C1)C1 
J="S" THEN GO TO 5880 

4356 IF Q$(€1)C1 TO S)="NORTH" OR Q$(1)C1 
J="N" THEN GO TO 5986 

4360 GO TO 4158 

4486 GO SUB 2888 

441@ GO TO 7888 

45@6 IF Q$(2)(01 TO 12)="DRAGONSLAYER" TH 
EN GO TO 4528 

4501 IF Q$€2)C01 TO S)="SWORD" AND Q$(3)C 
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1 JO 2)="0F" AND O#C4I01 TO 4)J="KROAC* TH 

EN GO TO 4538 

4562 IF Q$€2)C1 TO 3)="KEY" AND Q$(3)01 

TO Z3="OF" AND OS£430] TO 4J]="ROAC” THEN 
GO TO 4518 

4563 IF Q$(2)(2)=" " THEN GO SUB 98@@: 

PRINT AT 16;23"TAKE WHAT ?": GO SUB 388@a 
GO TO 46a@@ 

45@5 GO SUB 38@@: PRINT AT 16,23;"YOU DO 

NOT FIND THAT HERE": GO SUB 38@@: GO TO 

4880 

4516 IF AS¢COJ="K" THEN GO SUB 388@: PRI 

NT AT 16,;23;"YOU PICK UP THE KEY OF ROAC; 

WITH IT YOU MAY UNLOCK THE GAT 

— THAT PROTECTS THE GREAT SWORD OF RO 

AC, GUARD IT WELL. ": FOR I=1 TO 2@@: NEX 

T IT: LET KOR=1: GO SUB 93886: LET A¢(O)=" 
": GO TO 4886 

4515 GO SUB 9866: PRINT AT 16;23;"YOU DO 

NOT FIND THAT HERE": GO SUB 3868: GO TO 

4008 . 

452@ IF A$CO)J="S" THEN GO SUB 938@@: PRI 

NT AT 16,;23;"YOU TAKE THE DRAGONSLAYER; 1 


hi WILL GIVE YOU THE POWER OF DEAT 
H OVER ALL DRAGONS": LET DS=1: GO SUB 38 
@@: LET A$CO)J=" ": GO TO 4488 


9525 GO SUB 9866: PRINT AT 16,23;"YOU PO 

NOT FIND THAT HERE": GO SUB 938@@: GO TO 

4000 

4536 IF O=11939 AND A$(OJ="_" THEN GO SU 
B 986@: PRINT AT 16,23;"YOU TAKE THE SWOR 
D OF ROAC": GO SUB 9886: LET QUEST=1: LE 
T ASCOJ=""": GO TO 48a 

454@ GO SUB 38@@: PRINT AT 16,23" YOU CAN 
NOT FIND IT HERE": GO SUB 38@@: GO TO 44 
ye) 

4600 IF Q@$(2)3C1 TO 83="TRAPDOOR" AND ASC 
Oj="T" THEN GO SUB 388@: PRINT AT 1632; 
"THE TRAPDOOR OPENS AND YOU GO DOWN. T 


== <« @ 


_ 
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HE TUNNEL LEADS YOU INTO A LARGE CR 

ACK IN THE SIDE OF A CORRIDOR": FO 

R J=1 TO 1@@: GO SUB 988@@: LET O=295: LE 
T D$="S": GO SUB 280@: GO TO 4808 

4604 IF A$(O)<>"P" THEN GO TO 4614 

4605 IF Q¢C2)C1]1 TO 18)="PORTCULLIS" AND 

Q¢CSIC1I=STR$ RND THEN GO SUB 938@@: PRI 

NT AT 16;23"THE PORTCULLIS OPENS WITH 

RELUCTANCE": LET ASCOJ=" ": LET ASCO 

-S@J="": LET A$(CO+T5@)=" ": GO SUB 28a: 
GO SUB 3888: GO TO 48aa 

4687? IF CQ$(5)<>STR#$ RNDJ=1 THEN GO SUB 
3800: PRINT AT 16,;23;"WHAT KEY ?": GO SU 

B 39886: GO TO 4aaa 

4669 IF Q$(2)C1 TO 1@)="PORTCULLIS" AND 

Q$CSIC1I<OSTR#S RND THEN GO SUB 3880: PR 
INT AT 16,23" YOU PICKED UP THE WRONG KEY 


AN ABYSS OPENS UP BELOW YOU AND 
WOU PALLs se aces UNTILL YOU 
HIT THE BOTTOM. YOU ARE DEAD. ": FOR 


I=1 TO 266: NEXT I: GO SUB 93800: GO TO 
3388 
461@ IF Q¢C(2)C1 TO 4)="DOOR" AND AFCO)=" 
L" THEN GO SUB 93884: PRINT AT 16;23"THE 


DOOR IS LOCKED": GO SUB 9890: GO TO 480 
Q 


4620 IF Q$C€2)C1 TO 4)="DOOR" AND AS(OJ=" 
L" THEN GO SUB 38@@: PRINT AT 16;135"THE 
HUGE IRON DOOR SWINGS TO ONE SIDE TO 
REVEAL THE TEMPLE OF DEATH": LET ASCO 
+5@)="S": LET A$COJ=" ": GO SUB 2084: FO 
R I=] TO 5@: NEXT I: GO SUB 3886: GO TO 
4000 

4638 GO SUB 93888: PRINT AT 16;2;"I SEE N 
OTHING TO OPEN": GO SUB 9808: GO TO 42882 
4708 IF A$COJ="L" AND Q$C2)C1 TO 43="DO0 
R'" AND Q¢(€33C1 TO 4)="WITH" AND Q$(4)01 
TO 3)="KEY" AND Q$C5)C1 TO 2)="OF" AND Q 
$(6)C1 TO 4)="ROAC" THEN GO SUB 3880: P 
RINT AT 16;23;"THE KEY TURNS IN THE LOCK 
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AND IT THEN DISAPPEARS": LET KOR=@: LE 
T A$(OJ="L": GO SUB 93848: GO TO 4aaa 
4718 IF A$CO)<>"L" THEN GO SUB 98@@: PR 
INT AT 16,;23"I SEE NOTHING TO UNLOCK": G 
QO SUB 38@a: GO TO 4aaa 
4728 GO SUB 98@@: PRINT AT 16,23;"I DO NO 
T UNDERSTAND; RETYPE": GO SUB 38@@: GO T 
0 40aa 
4800 IF MEA>@ THEN LET MEA=MEA-1: LET S 
T=180: PRINT AT 3;28;"1@8": GO SUB 98a@: 
PRINT AT 16;2;"YOU EAT A MEAL": PRINT A 
T 9,28;" “3MEA: GO SUB 98@@: GO TO 4020 
4g1@ GO SUB 3880: PRINT AT 16;2;"YOU HAU 
—E NO MEALS LEFT": GO SUB 98@@: GO TO 4aa 
g 
5188 DIM S(3) 
511@ LET SC1)=0: LET S$(2)=ST: LET S(3)=D 
EX: LET S(4)=SKI: LET S(S)=MEA: LET S(6) 
=EXP: LET SC7?)=KOR: LET S(8)=QUEST: LET 
S(3)=MON 
5128 FOR I=1 TO @1@: NEXT I: SAVE "ROAC 
DATA" DATA SC): GO SUB 98@@: GO TO 4aa0 
5288 INK @: PRINT AT 21,;@;" "3: LOAD "" 
DATA SC) 
521@ LET O=SC1): LET ST=S(2): LET DEX=SC 
3): LET SKI=S(4): LET MEA=S(5): LET EXP= 
S(6): LET KOR=S(7): LET QUEST=S(8): LET 
MON=S(3): GO SUB 3888: GO TO 4aa0 
53@1 IF MON=@ THEN GO SUB 38@@: PRINT A 
T 16,;2;"I SEE NOTHING TO KILL": GO SUB 3 
8@@: GO TO 4020 
53@5 IF Q$(2)(1 TO 8)<>"OUERLORD" AND Q$ 
(2)C1 TO 5)<>"HYDRA" AND Q$(2)C1 TO 6)<> 
"DRAGON" AND Q$(2)C1 TO 8)<>"MINOTAUR" T 
HEN GO SUB 98@@: PRINT AT 16,;2;"KILL WH 
AT ?": GO SUB 3888: GO TO 4eae 
53@6 IF Q$(4)(1 TO 12)="DRAGONSLAYER" AN 
D DS=@ THEN GO SUB 98@@: PRINT AT 16,1; 
"YOU. DO NOT HAVE A DRAGONSLAYER": GO SUB 
9822: GO TO 4ea¢ 
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5327? IF Q$(2)(1 TO 8)="MINOTAUR" AND ASC 

0)<>"M" THEN GO SUB S8@@: PRINT AT 16,2 
:"I] SEE NO MINOTAUR": GO SUB 3888: GO TO 
4880 

5388 IF A$(O)J="G" AND DS=1 AND Q$C(2)C1 T 
0 63="DRAGON" AND Q¢(3)C1 TO 4)="WITH" A 
ND Q$(4)(1 TO 12)="DRAGONSLAYER" THEN L 


ET MON=@: GO SUB 39886: LET AS(OJ=" “: PR 
INT AT 16,;23;"THE DRAGON LIES DEAD AT YOU 
R FEET. THEN THE DRAGONSLAYER GRO 


WS HOT AND DISAPPEARS": LET DS=@: FOR [= 
1 TO S@: NEXT I: GO SUB 38@@: LET EXP=EX 


P+INT C1@@XRNDJ: PRINT AT 11;,;31-LEN CSTR 
$ EXPJ3EXP: GO TO 40a@ 

5303 IF Q$(€2)C1 TO SJ="HYDRA" AND AS(OI< 
>"H" THEN GO SUB 38@@: PRINT AT 16;23"1 
SEE NO HYDRA": GO SUB 3888: GO TO 4880 
531@ IF Ast(OJ"G" AND Q$(23C1 TO 6)="DR 
AGON" THEN GO SUB 938@@: PRINT AT 16,23" 
I SEE NO DRAGON": GO SUB 38@@: GO TO 44a 

g 

5313 IF @¢$(€2)C1 TO 8)="OUERLORD" AND ASC 

O3<>"S" THEN GO SUB 38@@: PRINT AT 16;2 
;"I DO NOT SEE THE OVERLORD": GO SUB 9388 

@: GO TO 488a 

5315 LET EAS=EST+EDEXtESKI+INT C1@XRND) 

5326 LET AS=EXP+ST+DEXt+tSKI+INT C1@XRNDJ 

533@ IF AS>EAS THEN GO TO 5358 

5335 LET RND=RND: IF RND>.8 THEN GO SUB 
3806: PRINT AT 16;2;"YOU MISS AND HE RE 


TALITATES HE HAS KNOCKED YOU SENSELE 
SS HE MOVES IN FOR THE KILL YO 
U ARE DEAD": FOR I=] TO 2@@: NEXT I: GO 
TO 3966 


5336 IF RND>.6 THEN GO SUB 38@@: PRINT 
AT 16,;2;"YOUR SWORDS LOCK AND AFTER A 
WHILE IT WINS. IT CUTS A GASH IN YOUR 
SIDE.": FOR I=l1 TO 1@@: NEXT I: GO SUB 
9808: LET DEX=DEX-INT (3@xRND): PRINT AT 
5,283" “3DEX: IF DEX<1@ THEN PRINT AT 
5,283" @": GO TO 33a0 
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5337>1F RND>.6THEN GO TO 4888 
5348 IF RND>.4 THEN GO SUB 38@@: PRINT 
AT 16,2;"I1T MOVES OUT OF THE WAY AND 


LAYS A BLOW TO YOUR HEAD "=: FOR [=1 T 
O 5@: NEXT I: GO SUB 9880: LET ST=ST-INT 
CS@XRNDJ: PRINT AT 3,283" "3ST: IF ST<1 


@ THEN PRINT AT 3,283" @": GO TO 99a 
5342 IF RND>.4 THEN GO TO 4aaa 
5343 IF RND>.2 THEN GO SUB 98@@: PRINT 
AT 16,23;"YOUr STRIKE IS BLOCKED AND IT 
SWINGS ROUND TO LAY INTO YOU.": FOR I= 
1 TO 188: NEXT I: GO SUB 98@@: LET ST=ST 
-INT C4@XRNDJ: PRINT AT 3,283" "3ST: IF 
ST<1@ THEN PRINT AT 3;28;" @": GO TO 3 
9a2 
5344 IF RND>.2 THEN GO TO 4aaa 
5345 GO SUB 38@@: PRINT AT 16,2;"YOU MIS 
S AND IT HACKS AWAY AT YOUR LEG, THIS 
INJURY DISABLES YOUR MOUVEMENT" 
> FOR I=1 TO 15@: NEXT I: GO SUB 98@@: L 
ET DEX=DEX-INT (4@XRND): PRINT AT 5,283" 
“3DEX: IF DEX<1@ THEN PRINT AT 5,283" 
Q": GO TO 339a@a 
5346 GO SUB 98a@a: GO TO 4aa2a 
5358 LET RND=RND: IF RND>.8 THEN GO SUB 
988G: LET MON=@: PRINT AT 16,23;"YOU SLA 
SH AT ITS NECK AND SCORE A HIT; BL 
OOD GUSHES FROM THE WOUND AND HE OD 
IES A HORRIBLE DEATH": FOR I=1 TO 182 
> NEXT 1: GO SUB 98@@: LET EXP=EXP+INT C 
1@@XRND): PRINT AT 11,31-LEN CSTR$ EXP); 
EXP: ET A$(O)=" ": GO TO 48aa 
53: IF RND>.6 THEN GO SUB 93888: LET MO 
N=@: PRINT AT 16,23" YOUR SWORD CLEAVES H 
IS SKULL". FOR I=1 TO S5@: NEXT I: %O SUB 
98@@: LET EXP=EXP+INT €1@@XRNDJ: PRINT 
AT 11,31-LEN CSTR¢& EXP);EXP: LET A$COI=" 
GO TO 49a2 
536@ IF RND>.4 THEN GO SUB 98@@: LET MO 
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N=@: LET AS(OJ=" "2: PRINT AT 16,;23;"YOU R 
UN IT THROUGH WITH YOUR SWORD. IT LIE 
S DEAD AT YOUR FEET.": FOR I=] TO 5@ 
> NEXT I: GO SUB 938@@: LET A$(OJ=" ": LE 


T EXP=EXPtINT C1@@*RNDJ: PRINT AT 11;31- 
LEN CSTR$ EXPJ3;EXP: GO TO 46@a 

5376 LET MON=@: GO SUB 38@@: PRINT AT 16 
123;"YOU ATTACK IT FROM BEHIND; DRIV 


ING YOUR SWORD BETWEEN IT?S SHOULDE 
R BLADES. IT DIES INSTANTLY. ": FOR I=] 


TO 166: NEXT I: GO SUB 93886: LET A$(OJ= 
" "2 LET EXP=EXPtINT C1@@XRNDJ: PRINT AT 
11,;31-LEN CSTR$ EXPJ3EXP: GO TO 4800 
5408 IF Q$C€2)C1 TO 7)="UNICORN" AND Q$(4 
JC1 TO 4)="HELP" THEN GO TO 5420 
5418 GO SUB 388@: PRINT AT 16;2;"YOU CAN 
NOT DO THAT HERE": GO SUB 3888: GO TO 4@ 
aa 
542@ IF A¢(O)<>"U" THEN GO SUB 93880: PR 
INT AT 16;23;"I SEE NO UNICORN": GO SUB 3 
8008: GO TO 40a 
5434 GO SUB 388@@: PRINT AT 16,23"THE UNI 
CORN SAYS TO YOU:- >THE LENGENDARY 
SWORD OF ROAC LIES IN THE TEMPLE OF DB 
EATH YOU WILL NEED EXPERIENCE TO 
GET OUT ALIVE. TO ENTER YOU NEED TRH 
E KEY OF ROAC" 
5446 FOR I=] TO 25@: NEXT I: GO SUB 93888 
GO TO 4688 
55@@ IF A$(OI<>"I" THEN GO SUB 938@@: PR 
INT AT 16,;23;"1I SEE NOTHING TO CLIMB": GO 
SUB 3888: GO TO 4@aa 
551@ IF Q@$(2)C1 TO 3)3="OUT" AND Q$(3)01 
TO 23="O0F" AND O$(4)01 TO 33="PIT" THEN 
GO TO 35538 
552@ GO SUB 98@@: PRINT AT 16;23;"YOU CAN 
NOT DO THAT HERE": GO SUB 98@@: GO TO 4@ 
2)4) 
553@ GO SUB 9886: IF ST>3@ THEN PRINT A 
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T 165;23"70U CLIMB OUT OF THE PIT": LET F 
ALL=@: LET O=O+1: GO SUB 2@@@: GO TO 4a@ 
7) 

5544 PRINT AT 16,23" YOU ARE NOT STRONG E 
NOUGH TO CLIMB OUT OF THE PIT. SOON YT 


OU GET ATTACKED AND IN THIS SIT 
ATION YOU CANNOT FIGHT. YOU ARE DEAD 
-"? GO TO 3988 

5668 IF A¢CO-1)="." THEN GO SUB 38@@: P 


RINT AT 16,2;"YOU CANNOT GO WEST": GO SU 

B 39868: GO TO 44aa 

5662 IF FALL=1 THEN GO SUB 93886: PRINT 

AT 16,;2;"YOU CANNOT MOVE “=: GO SUB 38@@: 
GO TO 48a 

5S6@5 IF MON=1 THEN GO SUB 98@@: PRINT A 
T 16;23"THE MONSTER BLOCKS YOUR PATH": G 

O SUB 3888: GO TO 8aaa 

561@ LET D¢="W": LET O=0-1: GO SUB 2888: 
GO TO 76288 

5706 IF A$COt1)J="." THEN GO SUB 3888: P 

RINT AT 16,23" YOU CANNOT GO EAST": GO SL 

B 3888: GO TO 4888 

5702 IF FALL=1 THEN GO SUB 398@@: PRINT 

AT 16,;23;"YOU CANNOT MOVE ": GO SUB 38@@: 
GO TO 4888 

57@5 IF MON=1 THEN GO SUB 98@@: PRINT A 


T 16;2;"THE MONSTER BLOCKS YOUR PATH": G 
O SUB 388G: GO TO 8aaa 


571@ LET D$="E": LET O=O+t1: GO SUB 2@8@: 
GO TO 7266 

5806 IF A$CO+tSBJ="." THEN GO SUB 9388@: 
PRINT AT 16,;23;"YOU CANNOT GO SOUTH": GO 

SUB 988@: GO TO 4aa¢a 

59882 IF FALL=1 THEN GO SUB 938@@: PRINT 
AT 16,;23;"YOU CANNOT MOVE ": GO SUB 3882: 
GO TO 488 

5885 IF MON=1 THEN GO SUB 98@@: PRINT A 
T 16;23;"THE MONSTER BLOCKS YOUR PATH": G 

O SUB 9886: GO TO 88828 
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581@ LET D¢$="S": LET O=0+5@: GO SUB 2088 
IF QUEST=1 AND O=1152 THEN GO TO 9886 

5812 GO TO 7882 

5348 IF AS$CO-5 U BQ: 

eT AT re. 53816 ou" canNby Ga ONORTHTS fa 

SUB 98@G: GO TO 4886 

s9@2 IF FALL=1 THEN GO SUB 93886: PRINT 

AT 16,;2;"YOU CANNOT MOVE ": GO SUB 380@: 
GO TO 4080 

5385 IF MON=1 THEN GO SUB 3886: PRINT A 
T 16,23"THE MONSTER BLOCKS YOUR PATH": G 

O SUB 93890: GO TO 880a 

5316 LET D¢$="N": LET O=0-56: GO SUB 2808 
GO TO 7882 

7@6@ IF AS(OI<>"D" THEN GO TO 7618 

7@62 GO SUB 398@@: PRINT AT 16,2;"YOU HAY 


E JUST ENTERED THE TEMPLE OF DOOM, 
THERE IS A ROCK SLIDE BEHIND YOU. 
THERE IS NO ESCAPE": FOR I=] TO 158: 

NEXT I: GO SUB 938a¢ 

7004 LET A$(O+58)=",": LET ASCOJ=" " 


7866 GO TO 448 
7818 IF AS$COIJ<>"H" THEN GO TO 782 
7812 GO SUB 9898: PRINT AT 16; 24" 70 con 


E FACE TO FACE WITH A HYDRA; IT IS VE 
RY STRONG": FOR J=1 TO 106: NEXT I: GO S 
UB 38a¢a 

7@14¢ LET MON=1: LET EST=8@: LET EDEX=9@: 
LET ESK]=38 

7016 GO TO 48a@e 

7826 IF As(OJ<>"T" THEN GO TO 7636 

7822 GO SUB 988@: PRINT AT 16,23;"YOU COM 
E ACROSS A TRAPDOOR": GO SUB 3888 

7024 GO TO 40a0 

783@ IF A$(O)<>"G" THEN GO TO 784@ 

7632 GO SUB 93808: PRINT AT 16,23;"YOU COM 
—£ ACROSS A DRAGON BREATHING FIRE" 
FOR J=1 TO 1@@: NEXT I: GO SUB 93886 
7033 LET MON=1: LET EST=1@@: LET EDEX=18 

@: LET ESK]=82 

7834 GO TO 48a8a 

7240 IF A#$CO)<>"S" THEN GO TO 7858 
7042 GO SUB 93894: PRINT AT 16;23;"0N THE 
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FLOOR THERE IS A ORAGONSLAYER" : 
FOR I=1 TO 5@: NEXT I: GO SUB 98@@: GO T 
0 4802 

7@58 IF A$(O)<>"M" THEN GO TO 7a62a 

7852 GO SUB 3888: PRINT AT 16,23;"YOU CoM 
E ACROSS A HALF-MAN, HALF-BULL MINOT 
AUR": FOR I=] TO 5@: NEXT I: GO SUB 3820 
: LET MON=1: LET EST=8@: LET EDEX=6@: LE 
T ESKI=6@: GO TO 4aaa 

7@6@8 IF A#(O)<>"S" THEN GO TO 79870 

2262 GO SUB 989@: PRINT AT 16,23;"YOU ENT 
ER THE TEMPLE OF DEATH . AND YOUR QUEST 


IS NEARLY QUER IN FRONT OF YOU STANDS 


THE OVERLORD OF ROAC, YOU MUST 
FIGHT HIM TO GAIN THE SWORD OF ROAC 


"2 FOR I=1 TO 25@: NEXT I: GO SUB 938a@: 
LET MON=1: LET EST=1@@: LET ESKI=1@@: LE 


T EDEX=9@: GO TO 4@aa 
7878 IF A$(OJ<>"K" THEN GO TO 7688 
7072 GO SUB 398@@: PRINT AT 16,23"0N THE 


GROUND IS THE KEY OF ROAC": GO SUB 398@@: 
GO TO 4880 


7686 IF A$(O)<>"L" THEN GO TO 78398 

78482 GO SUB 39888: PRINT AT 16,;23"IN FRON 

T OF US STANDS A HUGE TRON DOOR": GO 

SUB 9882: GO TO 4aaea 

7@38 IF AS(O)<>"P" THEN GO TO 7188 

7032 GO SUB 38@@: PRINT AT 16,23;"IN FRON 

T OF YOU THERE IS A PORTEHLLIS, ON 

THE WALL THERE ARE TWO KEYS WHICH ONE 

WILL YOU CHOOSE? KEY 1 OR KEY 2 ?": 

FOR I=] TO 1@@: NEXT I: GO SUB 3888 

7634 LET RND=INT C2X*RNDJ+1 

7696 GO TO 488 

7184 IF ASCOVO*N” THEN GO TO 7LI@ 

7182 GO SUB 388@: PRINT AT 16;23;"YOU HAY 

E JUST ENTERED THE TEMPLE OF KINGS 
THE WALLS GLITTER LIKE GOLD.“ 2 FO 

R I]=] TO 5@: NEXT I: GO SUB 9888 

7184 LET AS$(OJ=" " 

7186 GO TO 48a 
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7110 IF As¥COIC"I" THEN GO TO 7128 

7112 GO SUB 9888: PRINT AT 16,2;"YOU RAY 
—E FALLEN DOWN A DEEP PIT, SOME SAND 
BROKE THE FALL": FOR [=] TO S@: NEXT I: 
GO SUB 38a 

File LET FaLL=1 

fii6 FOR T=2 TO 122% PRINT AT Is” 


"3 NEXT I 
7118 LET ST=ST-INT (4@*RNDJ: PRINT AT 3; 
283" "3ST: IF ST<1@ THEN PRINT AT 3,283 


@": GO TO 93988 
7113 GO TO 44a 
7128 IF A$COI<>"2" THEN GO TO 7138 
2122 GO SUB 98@@: PRINT AT 16,23;"MIST SW 
IRLS ABOUT YOUR FEET": GO SUB 38@@: GO T 
0 4886 
7130 IF AS$COIC"E" THEN GO TO 7148 
7132 GO SUB 9388@: PRINT AT 16,2;"YOU HEA 
R AN EERIE NOISE, YOU BREAK OUT IN A 
COLD SWEAT. ": FOR I=1 TO @: NEXT I: GOS 
UB 9808: GO TO 48aa 
714@ IF A$(OIJ<>"C" THEN GO TO 7158 
7142 GO SUB 398@@: PRINT AT 16,23;"YOU HEA 
R A SCREAM. IT REMINDS YOU THAT YOU AR 
E NOT SAFE IN THIS PLACE. "2 FOR Jal T 


0 1808: NEXT I: GO SUB 3988@: GO TO 4880 
715@ IF ASCOI<>"Q" THEN GO TO 7168 
7152 GO SUB S88@@: PRINT AT 16,2;"YOU HEA 


R A SQUELCHING NOISE, LIKE THAT OF HY 
DRA,": FOR I=1 TO 5S@: NEXT I: GO SUB 38a 
@: GO TO 4684 

7166 IF A$COI<>"U" THEN GO TO 4802 

7165 GO SUB 386@: PRINT AT 16,23;"YOU COM 
E ACROSS A FRIENDLY UNICORN. "+: GO S 
UB 388@: GO TO 448@aea 

8066 LET RND=RND: IF RND>.6 THEN PRINT 
AT 16;23"HE SLASHES AT YOUR NECK BUT IT 


TS ONLY A SLIGHT WOUND": FOR I=1 TO 5@: 
NEXT I: GO SUB 93888: GO TO 4008 


8810 IF RND>.3 THEN PRINT AT 16;23"HE T 
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EARS AWAY AT YOUR THROAT": LET ST=ST-INT 
C3@XRNDJ:> PRINT AT 3,283" "3ST: IF ST<1 

@ THEN PRINT AT 3,283" 6": GO TO 9588 

8626 IF RND>.3 THEN GO SUB 93888: GO TO 

4802 

884@ PRINT AT 16,;23;"HE CUTS INTO YOUR LE 

G": LET DEX=DEX-INT C1@XRNDJ: PRINT AT 5 


»283" "3DEX: IF DEX<1@ THEN PRINT AT 5; 
283" @": GO TO 93588 


8658 GO SUB 38@@: GO TO 486a 
SH@68 BEEP .2313: BEEP .1313% BEEP 51,13! 
BEEP 245132 BEEP .«dslS? BEEP «lal3? BEE 
P «25 15% BEEP .2:132 BEEP «2,15? BEEP .2 
7 1S 
SOGS>BEEP .1s137:BEEP .1,13:BEEP .2;,13:BE 
EP sles lTSsBeEP .1,13°BEEP .2;13°BEEP .1,1 
3:BEEP .1,13°BEEP .2,13:BEEP .2,10:BEEP 
»2,11:BEEP .2,13°BEEP .1,13°BEEP .1,13:8 
EEP 13513 
301@ PRINT AT 15,13"WELL DONE’ YOU HAVE 
COMPLETED THE ADVENTURE. 
THE SWORD OF ROAC IS NOW SAFE IN T 

HE HANDS OF MISTRAIN. NEVER MORE W 
ILL THE OVERLORD RULE TRE EARTH." 
3@2@ PRINT AT 21,;@;"ANOTHER GO ? CY OR N 
y" 
3838 IF INKEY$="N" THEN NEW 
96480 IF INKEY$="Y" THEN RUN 
$138 GO TO 3838 
3260 BORDER @: PAPER @: INK 2: BRIGHT 1: 


CLS =: PLOT 15,167: DRAW -11,-23: DRAW 1 
6,0 


921@ DRAW @,-2: DRAW -6,-4 

3226 DRAW 4,-8 

3238 DRAW @,-24: DRAW -4,-8: DRAW 6,-4: 
DRAW -16,;-12: DRAW @,~-2 

324@ PLOT 39,88: DRAW -34,-8 

325@ PLOT 39,88: DRAW 32,46 


3268 
3278 
3288 
3238 
3328 
3314 
3338 
3340 
3358 
3368 
3378 
3388 
3338 
DRAW 
3392 
3334 


DRAW 
DRAW 
DRAW 
PLOT 
DRAW 
DRAW 
PLOT 
DRAW 
DRAW 
DRAW 
DRAW 
PLOT 
PLOT 
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-28,28 

-2@,@: DRAW -7,7 

i) gi 

36;142: DRAW @,-24 
11,15 

=11 55 

60,146: DRAW @,5 
36,8 

35-17 

=35=17 

26,-38: DRAW -6,-6 
73,1104: DRAW 43,-37 
73;11@: DRAW @,-6: DRAW 2,-2: 


-2,-4: DRAW -16,@ 


DRAW 
PLOT 


DRAW @,6 


3336 
9397 


PLOT 
PLOT 


3,3: DRAW @,193 
88,135: DRAW 6,-3: DRAW -6,-3: 


184,15@: DRAW 36,@: DRAW 2,-10 
144,154: DRAW -2,-8: DRAW 16,0 


DRAW -16,-28 
3398 PLOT 118,104: DRAW 16,1@: DRAW @,-6 
DRAW -3,-3: DRAW 2,-2: DRAW 16,@: DRAW 


454 

9393 PLOT 175,146: DRAW -32,-4,PI/2.5 

34@@ PLOT 145,108: DRAW 31,-4,PI72.5 

9481 DRAW @,1@: PLOT 175,146: DRAW @,-3 
9482 PLOT 165,126: DRAW 18,18: PLOT 165, 
126: DRAW 18,-18 

9483 PLOT 168,13@: DRAW -16,@: PLOT 168, 
138: DRAW -16,0,P171.5 

3484 DRAW 8,-16,PI72: DRAW -2,6: DRAW -4 
2 

94@5 PLOT 183,1@8: DRAW 24,0,PI71.5: PLO 
T 204,145: DRAW -20,@,P171.5 

9486 PLOT 204,15@: DRAW @,-16: PLOT 2a4, 
158: DRAW 4,@: DRAW 16,-16: DRAW @,8: DR 
AW -4,4: DRAW @,4: DRAW 16,0: DRAW 2,-4: 
DRAW -2,-4 


3447 DRAW @,-42: DRAW -20,20 
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948 DRAW @,-12: DRAW 4,-6: DRAW -4,-2: 
DRAW -12,@: DRAW -4,2: DRAW 4,6 
3443 DRAW @, 32 
3418 PLOT 195,128: DRAW -8,8: PLOT 193,1 
34: DRAW -6,-6,PI: PLOT 193,134: DRAW 8, 
-8: PLOT 195,120: DRAW 6,6,PI 
3411 PLOT 126,132: DRAW -6,-9: DRAW 8,4: 
DRAW -2,5 
9438 PRINT AT 19,63 INK S3"HIT ANY KEY T 
O PLAY" 
944@ IF INKEY$="" THEN GO TO 3944@ 
945@ RETURN 
3588 GO TO 39a 
97399 STOP 
9882 FOR I=] TO 18@: NEXT I 
981@ PRINT AT 15,23" 
9828 FOR I=16 TO 21: PRINT AT 1,3" 
"2 NEXT I 
9832 RETURN 
9988 FOR I=1 TO 12: PRINT AT 1313" 
"2 NEXT I 

9985 INK 6: BRIGHT @: PLOT 76,163: DRAW 
16,0: DRAW @,-24: DRAW 36,4: DRAW @,-16: 
DRAW -36,0 

9914 DRAW @,-36: DRAW -16,@: DRAW 2,36: 
DRAW -36,@: DRAW @,16: ORAW 36,8: DRAW @ 
124 

93915 PRINT AT 5,83; INK 7; BRIGHT 13"R 1 
pi 

992@ PLOT 76,87: DRAW -40,-24: PLOT 92,8 
2: DRAW 48,-24 
9925 GO SUB 9888: PRINT AT 16,1;"HARD LU 
CK? YOU SCORE "3ST+DEX+SKI+EXP 
3938 PRINT AT 18,3;"ANOTHER GO ? CY OR N 
- 


3335 IF INKEY$="N" THEN NEW 
334@ IF INKEY#="Y" THEN RUN 
3356 GO TO 3985 


Scenario 


Having just attempted to assassinate the Dark Lord, you are 
sentenced to a fate worse than death. You are led deep into the 
recesses of his mountain and locked inside an ancient Orc 
dungeon, which has not even been entered by the Wraiths of the 
Dark Lord who dwell close to it. 

According to a scratched inscription on the solid rock door, 
there is only one way out; you must find this mysterious exit and 
venture through it to discover what lies beyond. The eerie 
passages seem to go on forever — will you ever escape ??? 
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Hints on Entry 


There are no user-defined graphics in this program as the high- 
resolution PLOT and DRAW commands have been used. The 
main section of the game has been written entirely in machine 
code, which makes for a much faster game. The machine code 
being a series of numbers, which must be entered into high 
memory using the loader program. 

First of all you must make sure that CAPS LOCK is engaged 
and then type in the basic program 3-D MAZE. Special care must 
be taken when entering the USR number, as a wrong number 
may cause a glitch or system restart. Once entered, the program 
must be saved using the command 


SAVE “3-D MAZE” LINE 10. 


The program should be saved on tape and verified using VERIFY 
“”” At this stage you should make sure that the tape remains in the 
same place, or the position on the tape counter is noted, so that 
another section of data can be saved directly after it. 

Now type in the DECIMAL LOADER program again checking 
that CAPS LOCK is engaged. Once complete it should be run. An 
address should appear on the screen and a prompt should ask you 
to enter a byte, which is one of the numbers in the DECIMAL 
DUMP. You must enter these numbers one at a time, a new 
address being printed on the screen at the end of each line, just as 
in the dump. At the end of each section, the computer carries out 
a simple error-trapping routine. If any errors are discovered, it 
will allow you to check the numbers you have just entered against 
those in the DECIMAL DUMP. The section is printed line by line 
and ENTER allows you to move on, while C allows for a line to be 
corrected. This will continue until the computer finds no more 
errors. Great care must be taken when entering the numbers, 
because the computer does not find all errors, and one wrong 
number could cause a glitch when the game is played. 

You now have to save the data in four sections just after the first 
program (3-D MAZE). When the tape is ready press ENTER to 
save the first block of data. This must be repeated three more 
times after which all three sections should be verified. 

The game is now complete. Type 


LOAD “3-D MAZE” 


and everything will then load automatically. 
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Techniques 


In a computer, memory can be thought of as a long line of boxes, 
each with its own address and able to contain a number between 
0 and 255 inclusive. 

One can change the contents of these boxes only if they are 
situated in the random access memory (RAM). This is achieved 
by using the command POKE. For example 


POKE 60000,100 


will put the number 100 into the box with address number 60000. 

On the Spectrum, the first address in RAM is 16384 because the 
16K read-only memory (ROM) takes up addresses 0—16383. 

In order to find out what is in any of these ‘boxes’, including 
those in ROM, the PEEK command is used. Thus PEEK followed 
by a number returns the contents of the required box, and this 
value can then be used in any way we wish. For example 


PRINT PEEK 60000 


will put the number in ‘box’ 60000 onto the screen. 

The ROM is the machine-code program which the computer 
uses constantly, unless it has been directed to a user-written 
machine-code routine in RAM. 

Without delving deeply into the realms of machine-code 
definition, this mysterious language is a series of simple 
instructions which can be executed immediately by the 
processor. Because each instruction is so simple, it can be very 
difficult to carry out a task that may seem very easy in BASIC. 

The function USR is used to execute machine-code routines. 
What actually happens when this command is used is as follows: 


1) The number after the USR is copied into the bc register (a type 
of machine-code variable). 

2) Control is transferred to the address specified after the USR. 

3) On encountering a RETURN instruction at the end of the 
machine-code routine, the value currently in the bc register 
will be given to the USR function and returned back to BASIC. 
For example 


PRINT USR 60000 


When returning from the machine-code routine which 
commenced at location 60000, the contents of the bc register will 
appear on the screen. 
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Playing Instructions 


On starting the game you will see a three-dimensional repre- 
sentation of what lies ahead. You can see up to nine units ahead 
unless there is a wall within that distance. 

Movement around the maze is achieved by using the right- 
hand joystick on Interface 2 or by the keys shown in Table 4. 


Table 4 
Command Direction 

8 Forward 

6 90° left 

7 90° right 
Note 
To break the game Press CAPS SHIFT 8 and SPACE at the same 
time. 
Adaptation 


The game is designed so that the maze can be changed by the 
user. However, great care must be taken to ensure that the 
machine-code routines operate correctly. 


40001 — Exit = 40012 


Start = 40049 


ee ar aT a oa Oe a 
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Firstly design a maze similar to that shown in Fig. 3, making 
sure to obey the following rules: 


1) The maze must be a square. 

2) The maze must be surrounded by walls. 
3) Corridors must all be of unit width. 

4) The start position (S) must be included. 
5) The exit position (E) must be included. 


When the maze has been designed the machine-code variables 
must be set as follows: 


POKE 60141,x+2 

POKE 60165,x+2 

POKE 60175,x 

POKE 60189,x 

POKE 60202,(2%x)—-1 

POKE 60212,x where x = size of maze 
POKE 60226,x 

POKE 60239,(2%x)—-1 

POKE 60252,x 

POKE 60260,x 


The maze can now be poked into memory starting at location 
41000 and entering the information row by row using the codes as 
shown in Table 5. 


Table 5 
Code Item 
0 A space 
1 A wall 
2 Exit 


When the maze has been completely entered, the lines of the 
program relating to the start address should be changed as 
follows: 


50 POKE 40006,START—256%INT(START/256) 
60 POKE 40007, INT(START/256) 
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and the exit should be changed using 


POKE 60286 INT(EXIT/256) 
POKE 60292, EXIT—256%INT(EXIT/256) 


When all this is completed the game is ready and can be saved, 
if required, by using the commands 


SAVE “CODE1” CODE 40500,19 
SAVE “CODE2” CODE 41000,900 
SAVE “CODE3” CODE 51000,5162 
SAVE “CODE4” CODE 60000,532 


Listing 


IMPORTANT 


ALL INFORMATION SHOULD BE ENTERED USING CAPS LOCK. 


3D-MAZE 


1@ LOAD ""CODE 

26 LOAD ""CODE 

3@ LOAD ""CODE 

4@ LOAD ""CODE 

5@ POKE 4@8@6,71 

66 POKE 4@807, 164 

7@ POKE 48088, 1 

828 CLS 

3@ GO TO 154 

1@@ CLS : FOR C=1 TO LEN A$ 

11@ PRINT AT 1@,15-CLEN A$72)+C3 FLASH 
13 INVERSE C-2xINT (C72) 3A$(C)3 

12@ NEXT C 

138 PAUSE 282 

14@ RETURN 

15@ LET A$="3D MAZE": INK 1: PAPER 7: G 
O SUB 188 


168 


3-D Maze 97 


LET AS="ESCAPE OR SUFFER A LIFETIME 


INK 2: PAPER 6: GO SUB 18@ 


178 
Ee : 
188 


LET A$="0F MISERY WANDERING DOWN TH 


INK 1: PAPER 7: GO SUB 180 


LET A$="EMPTY CORRIDORS": INK 2: PA 


PER 6: GO SUB 188 


1928 
- GO 
280 
K 6: 
210 
228 
238 
242 
258 
APER 
268 
270 
288 
238 


LET A¢="GOOD LUCK": INK 3S: PAPER 1 
SUB 188 

LET A$="PRESS ANY KEY TO START": IN 
PAPER 2: GO SUB 18a 

PAUSE @ 

INK @: PAPER ?: CLS 

RANDOMIZE USR 688@@ 

CLS 

LET AS="CONGRATULATIONS’": INK 2: P 
6: GO SUB 18a 

FOR N=@ TO 69 STEP .5 

BEEP .@@5,N 

NEXT N 

LET AS="YTOU HAVE ESCAPED?": INK 1: 


PAPER 7: GO SUB 188 


DECIMAL LOADER 


1Q REM XXXXXXKKKXKKKKKK 
2@ REM xXDECIMAL LOADERX 
BQ REM ¥XKXKKKXKXKXKKKKKKK 
4@ DATA 4@5@@,4@518,4793 
5@ DATA 41606,41899, 445 
68 DATA 51@@@,51161,4324 
7@ DATA 52668,52161,42493 
84 DATA 53006,53161,5411 
3@ DATA 54888,54161,5336 
1868 DATA 55@88,55161,8763 
118 DATA 68@868,6@531 ,6624@ 
12@ RESTORE 4@ 

138 READ A,B,C 

14@ LET D=@ 

145 CLS 
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158 
166 
172 
182 
138 
208 
212 
Z15 
228 
230 
24 
256 
268 
278 
288 
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PRINT "ORG: "SA 
PRINT 

FOR N=A TO B STEP 6 
PRINT N35": "3 

FOR M=@ TO 5 


PRINT TAB MX4+?3 

INPUT "BYTE="32 

POKE Nt+M,2 

PRINT 23 

NEXT 

PRINT 

NEXT N 

PRINT 

PRINT 

IF C<>D THEN PRINT FLASH 13"ERROR 


IN ABOVE SECTION OF CODE": PAUSE 2@@: G 


0 TO 
2368 
3288 
318 
328 
338 
348 


PRO 
358 
368 
370 
388 
338 
420 
41 
428 
438 
448 


188 

PRINT 

PRINT 

IF A<688@6 THEN GO TO 138 
CLS 


PRINT “INSERT TAPE.” 

PRINT “THE CODE IS SAVED IN 4 PARTS 
SO PRESS ENTER BEFORE SAVING EACH 
GRAM, " 

SAVE "CODE1"CODE 4@58@,13 

SAVE “CODE2"CODE 41880, 988 

SAVE “CODE3"CODE 51800,5162 

SAVE "“CODE4"CODE 680@8,532 

CLS 

PRINT “FINISHED SAVING, " 

PRINT “REWIND TAPE." 

PRINT “PRESS <ENTER> TO VERIFY.” 

PAUSE @ 

FOR N=1 TO 4? VERIFY ""CODE +: NEAT 


CLS 
PRINT “ALL CODE SAVED SUCCESSFULLY. 
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47@ STOP 
1220 CLS 
1218 PRINT "CHECK CODE. PRESS <ENTER> TO 
SEE NEXT LINE. PRESS <l2 TO CORR 
mel LINE. ” 
14286 PRINT 
1838 PRINT 
164@ PRINT 
1445 LET D=6 
963¢@ FOR N=A TO B STEP 6 
1@66 PRINT N3"? "3 
1@7@ FOR M=@ TO 5S 
148@ PRINT TAB MX4+73PEEK CNtM) 5 
1885 LET D=D+PEEK CNtM) 
1@9@ NEXT 
110@ PAUSE @ 
1116 IF INKEY$="C" THEN GO TO 20@@ 
1115 PRINT 
112@ NEXT N 
113@ IF C<>D THEN GO TO 1888 
1148 GO TO 13a 
2808 CLS 
261@ PRINT “RETYPE INCORRECT LINE.” 
2620 PRINT AT 10,83 
2030 PRINT N3"? "3 
2044 FOR M=@ TO 5S 
265@ INPUT "BYTE="32 
2860 POKE NtM,2 
20728 PRINT TAB MX4+73PEEK CNtM1) 3 
2@8@ NEAT 
2838 GO TO 1488 


DECIMAL DUMP 
ORG: 485d 


49508: 22 16 14 18 1 63 
48506: 22 1 88 26 @ 73 
48512: 26 1 84 18 @ 28 
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40518: @ 7) 2) Q 7) B 


CHECKSUM=4793 


ORG: 412888 


41800: 
41806: 
41812: 
41018: 
41024: 
41832: 
41836: 
41042: 
41048: 
41854: 
41@6¢a: 
41066: 
41872: 
41078: 
41084: 
41839¢@: 
41896: 
41102: 
41198: 
41114: 
41120: 
41126: 
41132: 
41136 
41144: 
4115@: 
411563 
41162: 
41168: 
41174: 
41188: 


QAQerrHEH 


FP DOr OO QOKrrF Or QOKKYerP OHQOeKrer HQK kK OO DQ QBwKwPKY KKH 
VWoOo VA VA QAr QAQHQVr VWADer’ QQAVeK Sr AQKHKYK KKH 
FP Or Or Or Oe QOKKerP Orr HD OK @O®Q™ MK QBwYKwYerwerre 
FP Orrre OOer @OOQer Fr OOO A QKrwerveeve eb’ ®B ® ®@wK KY KKK KH 

Qe @®O Or QOKKPrFP KF KS KF ®O QKeYrr OK OQ Q®Q QORRYerwerrwr 


PrRr Or QVQOQNCODODOO OFF AOQOKKFr QAOOD 


Q re 


41186: 
41192: 
41198: 
41204: 
$1218: 
41216: 
41222: 
41228: 
41234: 
41248: 
41246: 
41252: 
41258: 
41264: 
41270: 
41276: 
41282: 
41288: 
41294: 
41308: 
41306: 
41312: 
41318: 
41324: 
4133@: 
41336: 
41342: 
41348: 
41354: 
41360: 
41366: 
41372: 
41378: 
41384: 
41390: 
41396: 
414082: 
41408: 
41414: 


QDQrererr re QQQWVe QQ Orr OQ Qe QKYKRKK KF OK er 


Q © @O Ore QrerKere 


Sverre QO QVOre Veer rQOKKRY’ OK Hr Ore Ore aaoe8 Vr 


QNraoes 


QVoe Ver D 


QrreWY Or 


VOAo OOF Vere He Or Or Ar APMrKrF QAAQWAOWAVOYrY 


NWOWrrrer DOO OD 


Nr Or Br Oooo ede Or Or Ver Ve Ore OVE’ OK DY 


iw} 


QONrr 


SOe Or Orrr OOrr DV 


QrererR Qererer Bere QOrrrrer Qe ® BO 


YFP Ore Qeere QQ Qe OK OK HK OQ AQK QOKKRKKP Oe Qer HQWVeEK Ore VQ ®B 
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41428: 
41426: 
41432: 
41438: 
41444: 
4145@: 
41456: 
41462: 
41468: 
41474: 
41480: 
41486: 
41492: 
41498: 
41504: 
41510: 
41516: 
41522: 
41528: 
41534: 
941540: 
41546: 
41552: 
41558: 
41564: 
4157@: 
41576: 
41582: 
41588: 
41594: 
41688: 
41606: 
41612: 
41618: 
| 41624: 
41638: 
41636: 
41642: 
41648: 


S 
iN) 


Sodor 8 


ORK DORR RF QR rF QOH KF Oe QOrKe 


GVoorrr Or Or OD 


® 
GHSWeKrOOKKKr OOeKr QODWK AHA AY 


QO Ore r QR rP rR EF QerFrP ®D @ QR RP RHE HH QR QR RHF rR 
NSrr WOOF QAWAOAD OD 


NWVAeKr OFr HQAOVAr OOD QOOPAPWArF ANAPVAV AQAA CAH DN VY 
NVWOaerrr OOVeOKKKKr QQ eos Vr OAWAWAOKH KF DYE QOH 


QOOWrKAQAAWKKRK VAOWrKKK OOK KK OD 


BVVA Ve ABAKK OFKKr HOW AOY VY 


— © 
QN8Or 8 Or 
GSOsr 8OVOr OOD 
KE QOOrwr 
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if) 


4166G: 
41666: 


g 


7) 


1 


41698: 


a) 


1 


7) 


1 


41782: @ 


7) 


41788: @ 


41714: @ 


7) 


B 


] 


41726: @ 


91732: @ 


Q 


(es) 


7) 
7) 


] 


41792: @ 


41798: @ 


41884: @ 


] 


941822: @ 


Q 


1 


41834: @ 


© 


7) 


41846: @ 
41852: 


2) 
B 


41858: @ 


41864: @ 
41870: 


1 


41876: 


41882: 
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41888: 1 1 1 1 1 1 
418394: 1 ] ] ] ] I 


CHECKSUM=445 


ORG: 519280 
519@@: 75 1081 2 4 1 
510@6: 24 @ 1 tf i 2 
51812: 1 2558 08 @6 @g 
51018: 74 1061 2 1 1 
51824: 26 @ 1 1 1 2 
5103@: 1 2558 @ @ @ 
51836: 71 18023 4 4} 1 
51042: 28 @ 1 1 3 4 
51048: 1 2550 @ @ @ 
51854: 65 94 6 8 ] 4 
51068: 34 @ ] 1 6 8 
51066: 1 2550 @ @ @ 
Sla@72: Ss? @@ B@ 121 «7 
51878: 46 @ 1 1 8 12 
51084: 1 2558 6 @ @ 
51998: 45 64 12 18 1 4] 
51996: 62 @ ] 1 12 18 
51102: 1 2550 6 @ @ 
51188: 29 4@ 16 24 1 1} 
51114: 86 @ ] 1 16 24 
511280: 1 2558 @ @ @g 
Slizhs 2? &@ BD Bt i 

| 51132: 118 @ 1] 1 22 32 
51138: 1 2558 @ @ @ 
51144: 1 @ 6 8 34 4 

/ 5115@: 162 @ 1 1 6 8 
51156: 1 255@ @ @g@ @g 


CHECKSUM=4324 


ORG: 52800 


52000: 76 188 
52806: 24 @ 
52012: | 255 
526018: 75 166 
52024: 26 @ 
52038: | 205 
52036: 74 182 
52042: 28 @ 
52848: 1 ZOD 
52054: 71 34 
52066: 34 @ 
S2666: | 23D 
532072: 65 82 
52678: 46 @ 
52084: 1 255 
52098: S? 64 
320396: 62 @ 
32162: | 255 
52108: 45 430 
52114: 86 @ 
32120: | 255 
32126: 29 8 
52132: 118 @ 
32138: | 255 
52144: 7? 2) 
32158: 162 @ 
52156: | 253 


CHECKSUMN=42493 


ORG: 53882 


33486: 75 147 
33866: 24 @ 
93012: | ] 


Ne QVAr OOrOOr OG’ VOrOGSKr PWV AOeY SDP 


Q rer 


SOeoanOeK- ADAOKENOEHEN 


N 


QrrQrr 
68) 


Qrwnar 


ay 


QOS9ra0qorass8r-#8AWrasr- 8eBr Or VSr dsr 


wo 


OQOMDrFOwWe ANF OKrFOAKKrF AMF AAKFANKOBDNPE 
my N 
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53818: 74 149 1 2 1 255 ] 
53824: 26 @ 1 1 1 2 
5303a: ] 1 g 2 6 @ 
53836: 71 153 3 4 1 255 
53042: 28 @ 1 1 3 4 
53848: | ] @ 6 6 @ 
53054: 65 161 6 8 1 265 
53068: 34 @ l 1 6 8 
53066: 1 1 @ 8 @B@ @ 
53072: 57? 173 8 12 ] 255 
53878: 46 @ 1 1 8 12 
53084: 1 1 QB @ @ @ 
53696: 45 191 12 18 1] 255 
53@96: 62 @ 1 ] 12 18 
53182: 1 1 @ @ @ @ 
53188: 29 215 16 24 | 255 
53114: 86 @ 1 1 16 2 
53120: 1 1 2 6 8 @ 
Bolze: 7? 247 22 32 I 255 
53132: 118 @ 1 1 22 32 
ASI38: 1 1 2 6 6B @B@ 
53144: 1 255 6 8B 1 255 
53158: 162 @ 1 1 6 68 
53156: | 1 @ 8 8 @ 
CHECKSUM=5411 

ORG: 54@aa 

S4@@@: 76 147 8 2 1 2355 
54906: 24 @ 1 1 @ 2 
54812: 1 1 @ 6@ 6 @B@ 
54418: 75 149 @ 2 1 255 
54824: 26 @ 1 1 @ 2 
54832: | 1 2 6@ 6 @ 
54836: 74 153 @ 4 1 5 
54842: 28 @ 1 1 @ 4 


34048: 1 1 
34954: 71 161 
54860: 34 
34G66: 1 1 
54872: 65 173 
34678: 46 
54884: 1 1 
54090: 57 191 
54896: 62 
54182: 1 ] 
541908: 45 215 
54114: 86 @ 
54128: 1 1 
54126: 29 247 
54132: 118 @ 
54138: 1 1 
54144: 7? Zs5 
54156: 
54156: ] ] 


CHECKSUN=5336 


ORG: 5540a0a 


535@@@: 76 118 
535886: @ 30 
55@12: 255 1 
55618: 75 188 
35824: @ 33 
55030: 255 1 
55436: 74 146 
35842: @ 43 
55048: 255 1 
55454: 71 182 
55860: @ 31 
55866: 255 1 
55872: 65 34 


Qeread-oosoranev- ovoser-rsvsve Avs 


WOrRNOrK OFF OH DHS 
N ib) N 


Qe odor 


Q8ge- agaser- agose- gs aese- 88s SB 
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55878: @ 
95684? 255 
535898: 57 
55836: @ 
DI1B2Z? 255 
55188: 45 
55114: @ 
95128: 255 
55126: 28 
55132: @ 
So1382 Zo5 
391443 7 
55158: @ 
29156% 255 


233 
] 


CHECKSUM=8763 


ORG: 62082 
6888G: 62 
6@@86: 107 
68812: 80 
68818: 71 

68024: 24 
68838: 2@5 
62836: 123 
68842: 24 
68848: 138 
68854: 283 
68868: 935 
6@@66: 202 
68872: 58 
68878: 1a? 
60084: 7 

60@98: 156 
62896: 224 
68182: 97 


1 


62 
1 
g 
86 


a 


] 


46 
] 
1 
62 


22 
156 
156 
221 
4a 
12 
245 
235 
213 
234 
283 
146 
15 
156 
38 
283 
87 
204 


7) 
255 


68188: 
60114: 
68128: 
68126: 
68132: 
68138: 
60144: 
6015@: 
66156: 
68162: 
68168: 
66174: 
68189: 
64186: 
66192: 
66198: 
68204: 
68216: 
66216: 
6G222: 
60228: 
68234: 
6824G: 
68246: 
68252: 
60258: 
68264: 
68278: 
68276: 
66282: 
68288: 
68294: 
6838@: 
60386: 
66312: 
68318: 
60324: 
66338: 
68336: 


156 
135 


235 


264 
1@? 
1@? 


236 


236 
23? 
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68342: 
68348: 
68354: 
66360: 
68366: 
68372: 
60378: 
60384: 
6839¢a: 
60396: 
68482: 
68488: 
60414: 
6842¢a: 
68426: 
66432: 
68438: 
60444: 
6845¢: 
68456: 
66462: 
66468: 
60474: 
60488: 
68486: 
60492: 
60498: 
68584: 
6451@: 
66516: 
68522: 
68528: 


24 
7 
48 
1 
1a 
218 
263 
236 
43 


205 
285 
285 
205 
205 
217 
156 
35 

20] 
1? 

205 


239 
35 
14 
66 
236 
24 
78 
42 
34 
138 
2357 
42 
Z37 
181 
35 
285 
285 
285 
285 
217 
78 
2Z3 
86 
86 
86 
86 
225 
7@ 
34, 
62 
a2 
68 


CHECKSUM=66148 


42 
35 


68 156 
34 68 
246 286 
237 38 
5 33 
42 68 
3 285 
156 283 


283 
156 
2357 
205 
222 
156 
14] 
7@ 
1s 
66 
236 
18 
156 
281 
64 
229 
186 
186 
186 
7 
156 
217 
36 
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Scenario 


As the last of the great Quadrillion Knights it is your duty to 
release the Quadriland from the grip of the Dark Warlock who has 
brought hundreds of years of death, famine and misery to this 
once beautiful and prosperous planet. 

After taking power about five hundred years ago, the all- 
powerful dreaded Warlock split himself into three selves of 
differing power with each self ruling a particular kingdom from a 
hidden and dangerous fortress. 

Your task is to explore the world of Quadriland, visiting 
continents, islands, villages and castles, and to conquer fearsome 
monsters and beasts, in search of artefacts, weapons and spells 
without which the Warlock can never be defeated. 


112. Graphic Adventures for the Spectrum 48K 
Hints on Entry 


The entire game is written in about 75K of program and uses 
BASIC together with machine-code routines to speed up the 
graphics. 

To enter all of this information into the 48K of the computer 
(‘the pint in the half-pint pot problem’), the game has been 
divided into three distinct sections which should be entered and 
saved on tape according to the instructions listed below. To do 
this correctly you will require a blank cassette with both sides 
free. 


Instructions 


STEP 1 Type program QUAD.1 into the computer, taking great 
care with all the data lines. A missing or incorrect value at 
this stage will cause problems later on. 

STEP 2 Save the program on side B of the tape using the 
command 


SAVE “QUAD.1” 


STEP 3 Type the program QUAD.2 into the computer, again 
taking great care with the numerous lines of data. 


STEP 4 Save the program onto side B of the tape directly after 
QUAD. 1 using the command 


SAVE “QUAD.2” 


STEP 5 Type in the main program QUAD.3 taking the usual care 
over the user-defined graphics and spaces. 


Do not run the program at this stage. 


STEP 6 Save the third and final program on side A of the tape 
using the command 


SAVE “QUAD.3” LINE 1 


STEP 7 Load the program QUAD.1 and type RUN. After a period 
of several minutes the OK message will appear on the 
screen. Now load QUAD.2 and type RUN. After a similar 
period, the OK message should again appear on the 
screen. 
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STEP 8 The machine-code routines, the map and the village 
plans are now installed in high memory and can be saved 
onto side A of the tape for future use by the main 
program. Save them directly after the program QUAD.3 
by using the commands 


SAVE “CODE” CODE 50000,15536 
SAVE “CHR” CODE USR”A”,,72 


You are now ready to play Quadriland. 


Techniques 


The complexity of any adventure game will depend very much on 
the map or plan being used. In general, the larger the plan then 
the more complex and fascinating the game. The requirement ofa 
very large map can often pose great problems for the programmer 
since the most common method of representation — a multi- 
dimensional array (i.e. A(x,y)) — uses a lot of RAM, leaving very 
little space for the program, instructions and graphics. 

An alternative approach is to use a pseudo-array stored in high 
memory. Values can be placed in sequence above RAMTOP by 
using an initialization program and then saved on tape, using the 
SAVE “” CODE procedure, or passed to the main program. 

The only drawback of a pseudo-array of this form is the 
addressing. Unlike an ordinary array which is accessed by using 
a simple statement (i.e. A(x,y)), the pseudo version requires a 
mathematical formula to be applied to the parameters before 
obtaining the appropriate information. 


Example 


Consider a (100100) pseudo-array stored sequentially in high 
memory between locations 40000 and 49999 inclusive. To access 
an address given by the parameters x,y we require the command 


PEEK (((100+x)+y)+40000) 


In general, the amount of memory which can be saved using this 
technique is vast. The above example represents a saving in 
excess of 20K. 
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Playing Instructions 


Quadriland is a real-time graphics adventure, meaning that the 
game will continue even when commands are not being given, 
therefore fast reflexes are just as important as a logical brain and 
expertise in the art of adventuring. 

When the game is loaded from tape you will be placed some- 
where in the centre of Quadriland, from where you must explore 
the world by using the movement controls as listed in Table 6. 


Table 6 
Key Direction 
6 West 
Z East 
8 South 
9 North 
7&9 North-east 
7&8 South-east 
6&8 South-west 
6&9 North-west 


Throughout the game, various pieces of information will be 
displayed on the screen. These include a key to the types of 
terrain, combat situations and the player's attributes. These 
attributes should be watched very closely as they control the 
balance of the game. If any of these should fall below zero, all is 
lost and the game is over. 


Terrain 


As can be seen from the key on the screen, there are many 
different types of terrain, and these have different effects on the 
player’s attributes. It may therefore be useful to remember the 
following points: 


1) You can’t walk on water. 

2) Mountains are impassable on foot. 

3) Extra food is required while in the desert. 

4) Walking through fields of Quadrillion poppies may damage 
your health but can result in wonderful experiences. 


a 
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Monsters 


During your travels throughout the length and breadth of 
Quadriland you will no doubt encounter numerous monsters, 
which can be attacked by pressing a movement key (see Table 6) 
and the 0-key simultaneously. For example 


6,8,0 simultaneously — attacks south-west 
9,0 simultaneously — attacks north 


The strength of each monster will depend on its gender and 
information relating to this must be gained during the adventure. 


Villages 


As with all worlds, Quadriland has many populated areas, 
represented on the map in black, and these can be explored by 
moving into the appropriate square and using the ENTER 
command. 


Commands 


To make the game as fast as possible, all the commands are 
available by pressing one key; these are listed in Table 7 for 
convenience. How they operate and where they can be used is for 
you to discover. 


Table 7 


Key Command 


Dig 

Save game 

Load game 

Open 

Jump 

Enter village or castle 
Get on or off boat 
Transact 
Converse 

Pause 

Inventory 


HBHPONHsomM—-Ornysd 


Good luck, and remember Quadriland is a very big world. 
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Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 
2) SPACES WITHIN THE TEXT SHOULD BE ENTERED AS LISTED. 
3) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


QUAD.1 


1 CLEAR 433993 f 
3 PRINT =: PRINT =: PRINT 
4 PRINT TAB (€4)3: FLASH 1: PRINT “INI 
TALIZATION IN PROGRESS": FLASH @ 
S PRINT = PRINT 
6 PRINT TAB C1133: FLASH 1¢ PRINT *PL 
EASE WAIT": FLASH @ 
1@ LET A=59801 
28 READ B 
38 POKE A;B 
4@ LET A=At1 
5@ IF B=2@1 THEN GO JO 8@ 
6@ GO TO ga2@a 
78 DATA 1;,13@,3,33,96, 234,126, 38,7, 87, 
138, 29; 194; 131, 238, 58, 143, 92,62, 32, 197,2 
29,215, 225, 183, 35, 13, 194, 127, 238514, 255, 
5, 194,127,238; 201 
86 LET U=68808 
36 READ A;B 
10@ FOR J=1 TO A 
118 POKE U,;B 
126 LET U=U+] 
13@ NEXT I 
14@ IF U<65128 THEN GO TO gage 
158 GO TO 1808, 
16@ DATA 32,4/5,8,154/5 
>9;15;455;8;3, 4/1 @4/3,2/1 


3 


34/1,4)5,03 
G,15431 


3 3 


ee) 
] 


1; 4 
38;,3;2, 


Quadriland 117 


7 Oy 154515073525 1585 15451594735 2.158515 45 1 


» By By Sy Loe Sa4 


178 DATA 2,05,15,2;,;2,;6,15;45;2;8,1,;2;2;,031,; 
442,0,1,2,2,80,154/2,;8,1,;2,;2,0,1,;4/2;0;1; 


2,;2,80,3;4 


50515;43;235;9,1,;2,2,;8,A54,;2,0,15;2;2;0,A5;4;2 


188 DATA 32,4;2;8,1;2,2;05154;2,;0,;1;,2;,2 


7 


7/1585 352315;803,1343;A5;85;35;2,;15;9,15,4,/1598;33; 


19@ DATA 1;83;3;2,1,0,15,4)1;8,3,2,1;8;1, 
2,1,8,3;4 


282535252505 354 


30,/2,0,;4,2,1,;0,;3;,43/1,8,3,;2,;1;8,;2;,;471;45,5 
x23 lo Bis 254s 15 G5 35 25 250s: 25 0/45 2515865 35.45 Z 
39,152,2,0;,2,4,3;,;05152,33;0;2,4,;2,;0,1,2,3 


248 DATA 32,0,7,;0,3,4;5;0/2,4,7;,;0,2,4,6 
8 


1471;6;3;2,1,;8,6,;80,;6,4;,;1;0,254,;1;0,11;4; 
5;4,12,;4;1,;0,2,4,1,;0,;16,;4,13,;0/2,;4;17;8 


59,3, 2,13;0/15,0,3,;2,2,0,6,;4,15;8,;2,;4,1,8,1 
238 DATA 159,;3;2,2,80,6,4;1,8,;2,4;,1,98;11 


218 DATA 15,0,3,;2,;2,6,215,4,;1;0,;3,2,1,@ 
22G DATA 1,9,5,;2;4;4;,;3,0/2,4;3,;0;9; 434; 
251;80,;1,;0,3,;2;2,076,4;5;1,;0,;2545;1,;0:11;4,1 
1 @fieOs5s 25128 


4,5;0,;3,4;32;,4;32;,436,8@;,;21,4,5,;80,1,;8,3,2 


208 DATA 5303;1,4;5;4,154)/5;9,154;5;831, 
52985 Zl] 545 le ys 25 158 


,8,5,2,24,4,1,82,8,4,2,1,8,2 
454/1,8;2,85452,1;8,/24;4;1;8,7,8,24,4)1; 


@;31;4,1,8,13,4/5515,354,11;0;7;0/6,4;4;1 


25@ DATA 2 
34;4;5;1;95;93,;2,1,@ 


268 DATA 2,4;4;2,;13;9;654;45154;43;1;8;1; 
Zo 7304 la Ze 15052506 $525 15.85 By 4549 la4e4ils 


( 


71;2;15;855,;2,1;8,1;2,1,8 


278 DATA 2;6;5;2,634,33;1553451,0,15,251, 
ft 2; 3sGs1e2s la Bs la Ds ly By 7, 8p 422/15858; 


@452,80,4;2;1;0, 14; 49/1580,;15;2,;15;0,15;2,;3,8,1 


453, 13;654)152;15053,2,15;0/1;2,1,0,15,251,; 
32;1;8,;1;,2,1;8 
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282 DATA 7,80, 14545154515251580,;5,;2,1,8)1 
>2,1505150,1154515;4525451;05;554;1585,152; 


35@5 15253; @0f1525 15031583; 11545/1;05;2;451,8 


23;4,1;8,9;2,1,@2 


238 DATA 13;8;2,;4,17;0 


388 DATA 32,8,1,937;4,1;,8;7;25,1,;80,2;4;1 
2>85752,1;8;334,15;0/158,154;4;9,2,4,1;8;7 


22;1,;8;23;45;15;8057;2,1;0;354;1;0;1,0;13;451 


>@/2,2,158;2,4,150)7,;2,1,80,2,4,1;8077;251 
285 354,150/15,05 154515852, 2,1,;6,254;4;8)1 


2254:0;2;4;4;83 1525;/4;8;354,;1;0 


318 DATA 1,4,153451;80,2;251;0,25;,4,1;851 
29/154;,1,05;2,;2;,1,07/854;9;1,;854,1,;8;1;,08;1 


2451;8;2;271;,0,8,4,5;1,125431,0;150;,1;54; 


1,;052,;2,1,8;7,;455;1,;6;4;8;95,1;,;805;1;,4,1;9, 


3,;2,7;4;5;,;1/6;45;1,;80,;65;2,1,@ 


328 DATA 158,15;4515452525158;57;4;5;,1;56; 


¥1;051,;2,4,;0,1;2y71,;0,1,0,1,4,15;0,2,2;1, 
8,3,45,151/9;45;15;0,1,;2,;1,;0/2,2,1,;80,1;251, 


9y¥1,;0,154,1,;80,2,2,71,8,8,4,1515;9;451,;@8;31; 


2;2,;0,;1;2;1,;0,;1,;2,1;,0 


338 DATA 1;03,1;45,1;0,2;24/1,;0;854,2,158; 


4/1;054,;2,150,1,2515,4,1580,154;,1;0,2;,2;1; 


6,8,4;2,15,8,4,6,80,1,2,;1,;0,1,0,;154,;1;8;2; 


¥1;0,185457;2,150715;0,15,4,1,;85;2,2,71;0;,6 


34515,80,;2,;4715,8,8,;4,;8,0,1,0,15,4,4,;80,6;4;] 


359,725,;45,1;5;80,155,4,1;8 


348 DATA 1,;03;11;451585254515;0;,15;451;@8; 


13,;80/2,4,17,8 


358 DATA 19;45,13;8,19;4;1,;054,;4,1,8,6;2 
2>1;8/19,4,1,;8,4,;4,1;8/6,;2,1,;8,19,;4,13,854 
2431543; 1,52,3,9f2;231503; 19345 150/454515@s; 


632; 158/8,4,95,8,2,4;1;0;454;15;8051;2;6,0 


368 DATA 834313857; 1;1;07154;2;8;4;4;1; 


@y6;2,1,;0,8;4;1;8,7;151560;7;4;,6:9,1;2;1, 


9,854,1;,;0)75;1351,8,7;,4;,1,8;652,1,;8,8;,4;1, 


957513;1;0,5154,2,;80/9,;4,;1,;80,1,;2,6,8,8,4,1; 


8,75;151,;86,2,;4;,;15;054,4,1,;8,;6,;2,1;,¢ 


37@ DATA 83451;8;7515;1,0/25;4,15054;4;6; 
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1,;2,1;9;8 39543451; 
oe 39,;2;,2,;3;, 
e 2,1,8 


Be eee 2;9,5;2,1,;9,19,;4,1;5954; 
2732515,;80;12543;1;8;2 4 1,9,33;4/1,80;4;4;2; 
9,;5;27/1,:0,12,43,;1;8;25,;43;A;0;33;4;1;,;0;4; 4,1 


1By Gy 25 150s 135852543 1750 

398 DATA 7;8;215434;0,1,0,;5;2;,1,8,2154; 
12 Oss 2s 1505158; 5s 2A 10.215 455525 1,0/1;8 
p Sy Ze 15 Wel yA s By Bs Bs 1.8, 1 Oss 2a Ss S52 
Bs le Pe By By Sy 4544 lv Ss O04, 8 

490 DATA 75 Gy Si; 198s 352/108. 55 4101525 
4 /1511B54s18,4,3,0y71,2,15851,4,551525459 
oy Lets Ds one »158)1,451,1/155 45125453; 
O5104/141) 153451 16,4; 1,1/10;455;8;5;4,5; 1 
¢Bette tebe fe Ae lst BB, (58 

418 DATA 534515133; 45151/3; 454315 1854,1 
994/35 25150,;5,45 1514334559 1.1334, 1580/3325 
Vp Oy Sy ty Sy 11s 4y 452 

Bs By Biel gy rn ty 1 Gs ZB 1. 

420 DATA 27143555 12345 1)8/234158,1654 
» 104A o@; 2541505 164/13, 8,254,1758 

43@ DATA 14,8,254;, i ees es 
2 2iflvGa2e%s ¥eOs.BaZ/i 9512471, B. 592 flo8. 
1a @eleQs le 2/lO, Bs La Sa Ly Bg 2s 4) 158) Ss 29108 
sletals 8,55 251585 1049/1585 152)158 sly2f1sB 
Ba By ty yd Bl Bek 2, 1.0, 1.891 85 By 4358 
5 Las By B ely 4y Sekt 15137 801.8 

44@ DATA rey WRT eae 
2/l:@,2,2:1,8,1,;2/1,0,18,4,1,8,1,2/1,8,8 
>2,1,851;251,8,18,453,1,55451,8,152,3,8; 
4.293, @.1 31 @,18,4/2,1,6,4,1,8,12,2,1; 


8@,10,4,2,1, 6, 

456 DATA 5;8,5;2;4,0;2,;4,;9,15754; 43 4,1, 
0; /s, 2,15055,45551/11;:45;954,15835; 2/1;0,5 
shy $1, 11.4$4.453,051,2,3,0] /21; 4,32; 4,32 
4 


4,32, 4]32,4, 32 254,32; 4,32; 4/13, 8254517; 
2 
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» fag lv 4y 45 Bay 1 Ses Or Be dr 11 Gs Bp 2c 159 


47@ DATA 158545251;8315491;4,1954;5;851 
30/4,231,03154) 231421545 2;034,8515;2/1598; 


468 DATA 32,0,1;4,3;2,5,;072;45;15,8;7;2)1 
2837;451;95352,15;6715853;251,0515452,1;3 


‘ 


243138373 251505754549;251,;0y71;8,3,2,1;8)1 


120 


Lisi, 24s4s%s 


/ 


Bs 15 1s 4) 4512 1Oy4.651.35444 


38,1,2,;3;0/151;1054,13,151545/15155;4, 


f 


» Be Le 1 4/8s ly 2s By 2B, B54 
4$2,9,2,8 


395 
0,4 


1; 
1 
] 


438 DATA 1,4,6;2,15;0,;6,151,4,5;15134,3; 
153543,15;8;3;2)13:0:1;9;4,2,35;8;151,14;4,1 


19,;3;2,1,@ 


{ 


+153;4,1,0/3,2,1,0,6,8,3,1/18;,4,1,8;3;2, 
1,052,;8,;5,;15;2,65;3,451;6,2,45158;7;4/151; 


7 


518 DATA 1,4,15;5;,;1;8;3,2,;935;8,1,;6,1,@;5; 
53;1,;80,;6,6,;1,;0,;1,5/1,0;,1,;6,1,;5,5,;0y77;5;1, 


586 DATA 32,8,1,6;38,5,1,9;1;8,1,5;,538, 
24,5,/1;8,158,155,1,8/3,2,1158,14;5,1,8y1 
9,1,6,1,@055;5,1,0,1,6;4,;0;A;,;6,1,;8,;1;5,1,; 


4396 DATA 9,86;,;3,4;,;1;:0;2,4/1;8,6;4;5,23;1;3; 
4sf/ls Gs 3525 sO, 10/8523 354s 150; 2,4 715058; 


4513154534971,853,2,13:8,15057,2,1;:8,3;4,1, 


8,2,4,1,8;6;4)1517/4;4,158;3525,1;80/15,0;7; 
2,138;3345/158;254,15;8;55473,8,35,4,150;3, 


2;1;0,13,0;2;,4,17;0,13,6,2;,4;,17;8 
29515551,0,35,2/2,3,15,6315,3;1;6y15;3;1;651 


¢SsZ5 Gols Bs S5.55S5 85. lo Bo 158 


33434;2;1;98 


7 


6/1;6,13;5,15;6;1,65/158,5;5,1,;0,4,65;1;@)1 


:6;15,;05;1;,;5,1,8 


52@ DATA 1,8,13,5,1,0,1,6)7,8,4,6,1,8;1 
:654;0,1,5;1,051,0513,5,1,;0,9,6,4,0)1,6, 


1;8,1;5,1,6/1,8,13,5,9,0,1,6,1;8;4,6,1,8 


, 


51,57/1,8,1,8,20,5,1,0/2,6,1,;8,1,6,4,@/1, 


3;1;8 


! 


ele y45 Ss ls BsfloBs 11555 148s 255528, 156,74; 
9;1;,63/1;805;4555;1580,1,;8;115551;80;2,6,1,0;3 


53 DATA 1,8,11;5,10,0,2,651,0,1,631,9; 
Sy Ss 15s 1585 11,55 1598s 8, Bs 15852,8, 1,871,686 


>2,1,;6,6,6,1,;9,4,;5,1,8 


a rarer eee 
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5344 DATA 15@,115;5,1,;8,2,341,8,;3,5,8,0; 4 
935/158315@;1155;1;0f2,351,8,15,5,1;0/13; 
9;2,2,17,;4,13,;0,2,;2,17;G 
1806 REM XUDG’ Sx 
1618 FOR N=@ TO 71 
1828 READ A 
1@3@ POKE USR “A"+NjA 
184@ NEXT N 
1856 DATA 68,68, 24, 255, 153, 68, 36, 36,16,5 
6; 124,126, 16,255, 126,68, 192,192,92,85,85 
>85,113;4;14,15;,;12,62, 255, 255, 36, 54,64, 3 
6, 686,24, 126; 98,90, 36,56, 124,84,124,124,2 
34,181,171, 26, 26,254, 18,58,42,42,42 
186@ DATA 231,686,126, 255, 153, 255,195,126 
9 BG, 12552955 120, 153. 129, 255 


QUAD.2 


1 CLEAR 4993993 

Zz CLS 

3 PRINT = PRINT = PRINT 

4 PRINT TAB €4)3:> FLASH 1: PRINT “INI 
TALIZATION IN PROGRESS": FLASH @ 

S PRINT = PRINT 

6 PRINT TAB €11)3: FLASH 1: PRINT "PL 
EASE WAIT": FLASH @ 

18 GO SUB 1882 

28 LET AA=580aa 

38 GO SUB 3880 

335 LET 1=51 

So LET J=34 

94@ POKE 57997, 1 

4S POKE 57998,@ 

5@ POKE 57999, J 

SS POKE 58800,@ 

7@ STOP 
1818 LET 1=58801 
1828 READ A 
1838 POKE I;A 
1835 IF A=2@1 THEN RETURN 
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1646 LET I=I+1 

1856 GO TO 1826 

1868 DATA 42,143; 226,22, 181,43,229, 193,93 
>21,1394,153,226 

1878 DATA 237,75, 1415,226,9;17;74;,193;25; 
34; 139, 226,6,;11,14,17;197; 42,139; 226 
1888 DATA 126;,6,7,79;129;,5; 194,182; 226, 7 
3; 33, 143,92, 113,62, 32, 215,42, 139, 226 
1838 DATA 35, 34,139; 226,193,0, 13,194,174 
»226,62,13;,215; 42, 139, 226, 17,85; 68, 25; 34 
»139;,226,8,5,194,172,226, 261 

3@@@ FOR J=1 TO 5 

3618 FOR I=1 TO 182 

3824 POKE AA;S 

3625 LET AA=AAtI 

3638 NEXT I 

364@ NEXT J 

3@5@ LET J=6: LET I[=@ 

3666 READ A;B 

3678 FOR K=1 TO A 

368@ LET I=I+1 

3038 POKE AA;B 

3@35 LET AA=AAt1 

31@@ NEXT K 

311@ IF 1<>1@2 THEN GO TO 38628 

912@ LET J=J+1l: LET I=@ 

313@ IF J<>64 THEN GO TO 98668 

314@ FOR J=1 TO 5 

S14. FOR f=] 710 1é2 

3142 POKE AA;5S 

3143 LET AA=AAT1 

3144 NEXT I 

3145 NEXT J 

3146 RETURN 

3158 DATA 8,5,86,1;8;5 

3168 DATA 8553131513;4,65,1351573;93154;7;5 
>1,8;5 
3178 DATA 


225 
24;1635154;7;9 


8 
? 


= O) 


3 


3 


ee eS ee ee ee 
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3188 DATA 8,5,65153;73;4;4;23;7 3 
254;6315154933375152525755513,855 

8,5;65,1535734,;4,;6;73;731 

1 


>4;1831; 

3138 DATA 3 
157373534; 1 
34;6;7;3,1;8;5 
3288 DATA 835;6315337;854,157;8;1313751; 
25157 9791913545951525 355545 63 15154525159 
94335 15/355 
9321@ DATA 


85;5;65;1,;2;7;18,;4;7;1;5;4;,;6;151 

354593131533 2,451580;2,4,75;15,12;4,;351;5855 
3229 DATA 8,5;3315134,23,4,;257513,4,;73;1;2 
>4;6;1513,4,18,154934;851,354,1;8,5,4,6;1 
935-5 
3238 DATA 8,5;6,15,157,7;4,;1,;8,;6,4,12;,151 
6;4,1@,15;2,4,180,1,;9,4,6,;1;8,5 
3248 DATA 8553651513; 7,12,;4,14,1,1254,1,8 

1,8,5 

1,2;,7 


5 
>8;45175159;4;6 
3258 DATA 8;5;6; 


3 3 4,15;21;,4;351 
>154;53;151545;9,13,7 6 


3 4; 3 
3268 DATA >157311545;14;1;63;4;,8,3; 
734;93;1;2; 3 3 34,1,;854545;4;13;8;,5 
3278 DATA 1,734,4;35;3;8;4,18;,1;6 


8,5; 
4,8 
8,5 
24;8;3,;17,155 
3288 DATA 8,35; 
1,13 
8,5 
1,4 
8,5 


pI 


731 
1,4 
71 
451 
€ - 
9355;43 173; 
3236 DATA ) 


“ 
33,35;43;19; 4; 
3S 


“ 

6 
3308 DATA 3331 45,14 
5>13;55 4; 8535 3; 4,19, 3 PI 3 3 3 3 3 J 38,5 
9312 DATA 83533; 139542533333 45 143131124: 
2,3; 3;4513515154,18515354;8333254;53515855 
3328 DATA 8;5;8)15;4,4;5;3;4;43;15;354,1;6; 
$,4,15;954;2,;3,5,4,18;153;4;8;3,54;4;:1;1;8 


eS) 

3338 DATA 835,8,1513,45153345;1;15434;331 
2434315934; 2335554;15;1,65;4;8;354;4;1;1; 
B55 

3348 DATA 835,;85,13,1334;,1,331545;331;2;4,1 
3351;8,15,3335;4;23;1;234,15;80,;13,4,15,1,6;4 
>8,33;43;4,151;58;55 
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93586 DATA 835;5313;16;4;15;35;154;3 
93a 334525 15145 4s 195 1555493135254 
336@ DATA 835;53;1;16;451;35,1;4;3 
>1,1454,193159543;3;,3,2545,35;1;,8;,5 
4;1,33154;,3 
234;351;855 
452,151,331 
131 


937@ DATA 835,5,1;,16;4;1533154;,3,15;6;4;4 
31,143543;245;154;54;333; 3 3 3 3 3 

3388 DATA 8;5318,1;934;2;1515331;4;45,1;5 
>4545151434;85152,54,115151254535158;55 
9398 DATA 835; 19,1,;105;4,15152,4;4,1;6;4; 
6,1,115,4,651,2,4,1,0,154;2,3,9,15,125,4,3;, 


1,8,5 
3488 DATA 8,5,18;,1,854;8; 
94,180,;1535;4,115,1;8;4;2,;6, 3 3 3 3 3 3 3 

218,13;8;4,;2,15;13;4;5;5,154;45;5,6,;4;,1;8;4; 24 
315;3,6;5,;4;4,;6;3 


3 3 3 
3418 DATA 8,53;73;15154;2,;6;5854,8,1555431; 
6;1,6,;2,6,4,15154,2,;6;35;4;8,;15,154,1;6;31,; 
4,12,135154,145;6533,1;8,5 
342@ DATA 83557; 1515431563734; 12,153;4;3 
26,5;1;4,6,10,1,154,1,;6513,15154,14;6;3; 


1,;8,5 


3438 DATA 835;7;1;,6;4;3;6;149;15154,1;6;7 
>1,4,6,23,1;,;3;4;,;6;6;1;45;15;0,;154;3,6;531, 
8,5 

344@ DATA 835;4;15;3;,;6,6,4;,;5;6;2,;4,19,15;4 
96;23,1553;4;4,6;3,4;4;,65;45;15855 

$458 DATA 8,5;4,1,14,6,2,4;,;16,154;4;,3,6; 


2 3 3 
P] 3 3 3 4 6 z 
22,15,6;4,59,6;254,45158,5 
3468 DATA 8;5;4,1,14,6,2 
22,15,19,;4;2,1;,8;,5 
3478 DATA 83534351 
32154,2;1,8;5 
3488 DATA 835;33;159;4;6,;6;45;4;,115,1;1454, 
2315;33;4;63;15,1054;7;354;54;2;,1;8;5 
3438 DATA 8;,5;3,;15,;9,4,6,;6,;6,4;,9,13,14,4,7 
915154515,80,53;15,12,4375354;4;2,1585,5 
3508 DATA 835;331;215457;1;16;4,14;154;4 
21583754573; 33154;5;15;8;5 


314;6;35,4,;15,1,7;6; 20; 1 


i eee i ee 
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$518 DATA 8,5;3;,;1;6;4;1;8;1 
>3,7,4;125,15,12;43;7;3,154;35; 
3528 DATA 8;5;2;1;20;4;9;1 

331,23433;7;65457;33;1545;5;1;8,5 
9538 DATA 835;2;,1,1234,5;3;3,;4,;6,15,;25,4;1 
>1,5;4;6,;3,3,4,154,3,4,13;,152;4;3;7;6;4; 


2545931555456 
1,8,5 
354596735754; 1 


53;3;5,4;3,;1;8;5 

954@ DATA 835;2,131254,5;3;,;654;3;1,;6;4;8 
9357545135 13535454375 454355 3553 4,3515855 

355@ DATA 8;5;15;1;18;54;8,3,;6,4;1515,13;451 


>151,45,1;,;0;4;4; 8,3 39)43;15,135454;,35734;3 4; 
5;33;5;3,3,15;8;,5 

3568 DATA 835,151518545;8;3,;6;45,15151;4;1 
>1,6;4;8,;355,4,18,15154;6;7;854;6515,8,5 
3578 DATA 8;53;1;1;1854,;5;3,;6;4,;6,15,19;4; 
18,1553;4;2575;8,;4,;651;8;5 


3588 DATA 835;7;13;4;455s; ae 
8,155543257;5,4;15;8;2,4,;65;15;8;5 

3538 DATA 835;7;1;15;4 “ 1,16;4,;8515;2;4; 
10,1535;4,2;,7;854;6,1;8;5 

3688 DATA 8;53;73;1;12543157;115,1;313;4;11; 
15454;8515334;2,7;854,;65,15,8;5 

3618 DATA 8353;5313,1254;357;1151;513;4;59;1 
»3343;15;80,15459,133,4,2,7;8;4;65;1;8;5 
3628 DATA 8;5,5,1;,12,4;,;1;7;,;16,1;,18;,4;,18, 
1,;3;4,512,152,4,157,;6;4;8,15,8;5 

3638 DATA 8;35;531;7,4513;2;2;4;3;7;16;1;4 
>4515;05554;25;1;95;4,;8,15855 

3640 DATA 8353s ly ly 4245395545 2979 17 ¢ 1a l 
9;4,;23,135157,;18,4,8,;1;,8;5 

365@ DATA 8355;53;151; fe 4,35;554518;7;11;1; 
2545357553 1545753153515357,;654312,15855 
3668 DATA 835;551; ‘ 6,35734;4573; 1451; 


BI) 4; 7 = | 3 3 3 3 4 1 il 
34335735; 1; 1; Dey 1 4545739915353 4535133575 1 
»4,1,;8,6,4;,12 
367@ DATA 8;5 
1,2,4,6,;1,3,4 
31,8;5 


3 4; 
1,8;5 
38;1351;4;35;3,6,;4,1;0,;2,7,;8, 
232734345557; 16;54;851525454 


a 
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3682 DATA 835;8,1511545;2;7;7;15154;1;,8)1 
945237553 139343 150312, 4,3; 156,439,154 43 
4513835 

S698 DATA 8;5;11;157;4;185153; 
2931553; 4;3515454,18,1525;4;1;9 
S 

93782 DATA 8;5;48,1,;180;4,27,15154;8;1;8;5 
3718 DATA 8;5,86,1,8;5 


4;9,1,18;4 
1;4,;5,1,8, 


3 3 


QUAD.3 


1 LET GO=@: LET CJ=NOT PI: LET CI=NOT 
PI: LET OPEN=NOT PI: LET WO=NOT PI: LET 
Wl=1: LET W2=1: LET W3=] 

2 DIN R$C1@,32): DIN 1038): DIN VC24) 
> DIM X€24): DIM YC24): DIM JC3@): DIN NM 
(38): DIN SC3@): DIN HC38) 

3 LOAD ""CODE : LOAD ""“CODE 

4 PAPER 7: LET NO=NOT PI: LET SD=NOT 
PI: LET I$="A SHORT SWORD/“LEATHER ARMOUR 

3 LET NO=NOT PI? LET SD=MNOT PIs LET J 
$="A SHORT SWORD/LEATHER ARMOUR": CLS 

6 FOR K=21 TO 34: READ ICKI;JCKI;MCK) 

2? DATA 59; 22,5,45,;58,2;,61,68;,3, 78,59, 
4, 753;42,3,;68;21,1,60;,20,1,83, 18,5, 84,19, 
5;,;82,18;,5 

8 LET SCKIJ=CCJCKI-13*162)+1(K)+50000: 
LET HCKJ=MNCKI*1@ 

3 NEXT K 

11 FOR =i JO 2a 

12 LET JCKJ=INT CRNOX683: LET ICKJ=INT 

CRNDX182) 

13 LET S=C€CJCKJ-13¥*142)+](KI+50080 

1¢ IF PEEK S=1 THEN LET fCKJ=1: GO TO 
1? 

15 IF PEEK S=5 THEN GO TO 12 

16 LET MCKJ=INT CRNDXS)+1 

17 LET SCK)J=S? LET Y¢="" 


————— 
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18 LET HCKJ=MNCKIX6 

2@ NEXT K 

2) Lel G=1s¢@: LET b=NOT Pit LET STf=5@* 

EET F#7S: LET BX=SS: LET BY=Z] 

22 LET PSe"a” 

23 FOR K=1 TO 24 

24 READ X;,Y,2 

ZS LET *CKIJ=X? LET YCKI=T? LET UCKI=e2 

26 NEXT K 

2? DATA 11;,13,13173;43;2,22,14;3;26;59, 
4,37;28,5;37;47,6; 37,68;7,;46;25,1;46,55; 
2;53,15,3,53,45,4,55,60,5,63,41,6,64,53, 
? 

28 DATA 66,3@,1,69,12,2,73,42,3; 75,58; 
4,79,10,5,82,13,6,85,17,7,84,35;1,85,5@; 
2;87;61,3 

36 LET 1=5@: LET J=34 

4@ POKE 57397,1: POKE 57998,NOT PI: PO 
KE 57999;J: POKE 58@@@,NOT PI 

66 CLS : PAPER 7: PRINT : POKE 23689, 2 
4: LET xX=USR 580@1 

7@ PAPER ATTR (5;,8)78 

8@ PRINT AT 5,83"a" 


86 PAPER 7? 

S@ PRINT AT 1,;233;"KEY" 

35 PRINT AT 2,183; PAPER 63" "3 PAPER 7 
3 a0 DESERT™ 

1@@ PRINT AT 3,183 PAPER.1;" “3 PAPER 7? 
gn es SER" 

110 PRINT Al 43183 PAPER 23" “3 PAPER 7 
3" ee CASTLE” 

128 PRINT AT 3318; PAPER 35" “3 PAPER #7 
3 +» POREST™ 

13@ PRINT AT 6,183; PAPER 43" "3 PAPER 7? 
3"..PLAIN" 

14@ PRINT AT 7,183 PAPER 353” "3 PAPER 7 
3". eLANDS END” 


15@ PRINT AT 8,18; PAPER 73; BRIGHT 13" 
“3 PAPER 73; BRIGHT @;"..MOLUNTAIN" 
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16@ PRINT AT 9,183; PAPER @;" “3 PAPER ? 

:*,.WILLAGE" 

17@ PLOT 14@,17@: DRAW 118,@: DRAW @2,-8 
@: DRAW -118,@8: DRAW @,82a 

22@ PRINT AT 12,53;"STATUS"3AT 14,13"GOL 
D"3;AT 16,13"EXPERIENCE" ;AT 18,13"STRENGT 
H"3AT 2@,13;"FOOp" 

27@ PLOT 2,83: DRAW 130,@: DRAW @,-82: 
DRAW -13@,@: DRAW @,8@: PLOT 2,67: DRAW 
13@,@: PLOT 92,67: DRAW @,-64 

368 PRINT AT 14,123;G3AT 16,123E3AT 18,1 
23ST3AT 20,123F 

370 PLOT 140,83: DRAW 118,@: DRAW @,-28 
> DRAW -118,@: DRAW @,28: PLOT 140,67: D 
RAW 110,;@: PRINT AT 12;213"REPORTS": PLO 
T 140,50: DRAW 110,@: DRAW @,-48: DRAW - 
11@,@: DRAW 8,48: PRINT AT 16,18;"FIGHT 
STATUS": PLOT 148,36: DRAW 118, 

608 LET R$C1)="I DO NOT WISH TO SPEAK T 
9 YOU" 

618 LET R¢C2)="GEMS ARE ALL IMPORTANT" 

628 LET R$(3)="WISHING WILL GET YOU ALL 


632 LET R$(4)="IN THE MOUNTAINS UP SO H 
IGH" 

648 LET R$(5)="A STAR WILL GUIDE YOU FA 
Re 

65@ LET R$(63="ONLY FOOLS TELL LIES" 
668 LET R#(7)="THE WORLD IS FULL OF FOO 
LS” 

678 LET R#¢(8)="THE PRINCESS LIVES BUT O 
NEY JUST" 

6828 LET R#(3S)="MNANY A MAN WHO TRIES HAS 
A i= Oe 

69@ LET R#(1@)="THE DESERT IS A MYSTERI 
OUS: PLACE” 

7@@ IF GO=@ THEN GO SUB 9588 

71@ LET GO=1 

1668 GO SUB 78aa 


Se oe 
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1@1@>GO SUB 8800 

1826 LET 2$=INKEY$ 

1021 IF @¢="I" THEN GO SUB 85a@ 

1822 IF 2$="B" THEN GO SUB 2888 

1823 IF 2¢$="E" THEN GO TO 3080 

1824 IF 2¢="D" THEN GO SUB 2280 

1025 IF 2$="S" THEN GO SUB 399828 

1826 IF @¢="P" THEN LET H$=I$: LET I$=" 

GAME PAUSED HIT ANY KEY TO CONTINE": GO 

SUB 85@@: PAUSE @: LET I$="GAME CONTINUI 

NG...": GO SUB 858@: LET I$=H$ 

1027? IF @$="L" THEN LOAD "" 

1848 GO TO 1888 

2018 IF I<>BX AND J<>BY THEN BEEP .1,50 
> RETURN 

2011 LET T$="SEXTANT": GO SUB 2100: IF T 

K=@ THEN LET Q$¢=I$: LET I$="YOU DO NOT 

HAVE THE SEXTANT": GO SUB 85@@: LET I$=Q 

$: RETURN 

2012 LET T$="COMPASS": GO SUB 218@: IF T 

K=@ THEN LET Q¢=I$: LET I$="YOU DO NOT 

HAVE THE COMPASS": GO SUB 85@@: LET I¢=Q 

$: RETURN 

2013 IF E<2@@ THEN LET Q$=I$: LET I$="Y 

OU ARE NOT EXPERIENCED ENOUGH TO SAIL A 

BOAT": GO SUB 850@: LET I$=Q$: RETURN 

2014 LET T$="CHARTS": GO SUB 2100: IF TK 

=@ THEN LET Q$=I¢$: LET I$="YOU DO NOT H 

AVE THE CHARTS FOR SAILING A BOAT": GO S 

UB 85@@: LET I$=Q$: RETURN 

2020 LET H$=I$ 

2030 IF P$="a" THEN LET I$="YOU ARE NOW 
ON THE BOAT" 

2035 IF P$="b"" THEN LET I¢="YOU ARE NOW 
OFF THE BOAT" 

284@ GO SUB 8582 

2045 IF P$="a" THEN LET P$="b": GO TO 2 
Q5@ 

2846 LET P$="a" 
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2656 LET I$=H$ 

2868 RETURN 

2188 REM XINUENTORY TEST" 

2118 FOR X=1 TO LEN CI$)-LEN CT$)t1 
212@ IF I¢€€X TO CX+LEN CT$J-1)3)=T$ THEN 
LET TK=1: RETURN 

213@ NEXT x 

2148 LET TK=@ 

215@ RETURN 

22686 REM XDIG ROUTINEX 

2210 IF ATTR C€5,8)=S5S6 AND J=34 AND [=58 
AND RND>.3 THEN LET I$=I]$+"/CHARTS": LE 
T Q$=I1¢$: LET I¢="YOU HAVE FOUND THE CHAR 
TS": GO SUB 8580: LET I¢=Q¢: RETURN 

2220 LET Q$=I¢: LET I$="YOU HAVE NOT FOU 
ND ANYTHING BUT YOU ARE HUNGRY AND MUST 
EAT S UNITS OF FOOD": GO SUB 85@@: LET F 
=F-S: LET I¢=Q$ 

2236 PRINT AT 24,123" "2 PRINT AT 28,1 

23F > RETURN 

3800 REM XUILLAGE ROUTINE* 

3814 LET E=Et1@ 

3015 IF ATTR C5,8)=16 THEN GO TO 4802 

3826 IF ATTR (€5;8)>7 THEN BEEP .5;,5@: G 

0 TO 1888 

3830 FOR K=1 TO 24 

3046 IF YCKJ=J AND XCKIJ=I THEN GO TO 34 

72 

305@ NEXT K 

3066 BEEP .5;,;5@: GO TO 188@ 

3078 LET UN=UCK) 

30880 LET START=68@0@+(640*(UN-1)) 

3098 LET HB=INT CSTART7256) 

3031 LET LB=START-CHBX256) 

3092 POKE S9@@5,LB 

3093 POKE 59@@6,HB 

306934 PAPER 7: INK @: CLS : PRINT =: POKE 

23689,24: LET X=USR 598@1 

38696 LET UI=13: LET UJ=193 
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3298 PAPER 4: PRINT AT VJ,VUI3"a" 

38993 GO SUB 688@@: GO TO (3808+(1G@XUN)) 
31928 GO SUB 39480 

3105 LET 2$=INKEY$ 

3146 IF 2¢="" THEN GO TO 3138 

3118 IF 2¢="T" AND ATTR CVUJ,VIJ=16 AND VU 
J>S AND VI<6 THEN LET Q$¢="YOU MAY BUY 5S 
@-UNITS OF FOOD FOR 4@ GOLD PIECES": GO 
SUB 3888: GO SUB 3862 

3111 IF Y¢$="Y" AND G>=4@ THEN LET F=FtsS 
@: LET G=G-4@: LET Y¢="": GO TO 3182 
3112 IF Y#="Y" THEN LET CO=4@: GO SUB 3 
3395: GO TO 318a 

3113 IF Y$="N" THEN LET Y$="": GO TO 3] 
BB 

3115 IF 2¢="T" AND ATTR CUJ,UIJ=16 AND VY 

J>1@ AND VI>26 THEN LET Q¢="YOU MAY BUY 
A LONG SWORD FOR 5@ UNITS OF GOLD": GO 
SUB 380@:: GO SUB 3862 

3116 IF Y¢$="Y" AND G>=5@ THEN LET ST=ST 
+50: LET I$=I¢+"7LONG SWORD": LET G=G-5d 

LET Y¢="": GO TO 3186 

3117 IF Y$="Y" THEN LET CO=5@: GO SUB 3 

335: GO TO 3140 

312@ IF @$="C" AND ATTR CVUJ,UIJ=16 AND YU 

J<8 THEN LET Q$=R$CINT CRNOXSJ+1): GOS 
UB 38@@: LET H=INT CRNOX1@): LET G=G-H- 
LET Q$="AS PAYMENT FOR. HIS PEARLS OF WIS 
DOM, YOUR COMPANION STEALS "+STR# Ht" GO 
LD PIECES": GO SUB 3880 

3198 IF UsJ=2@ THEN GO TO 6@ 

3199 GO TO 3188 

3286 GO SUB 3940 

3205 LET €$=INKEY$ 

3266 IF @$="" THEN GO TO 3298 

321@ IF @¢$="T" AND ATTR CUJ,UIJ=16 AND VU 
I<? AND VJ>1@ THEN LET Q$="YOU MAY BUY 
1@@-UNITS OF FOOD FOR 18@@ GOLD PIECES": 
GO SUB 38@@: GO SUB 3868 
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3211 IF Y$="Y" AND G>=1@@ THEN LET F=Ft 
168: LET G=G-10@: LET Y$="": GO TO 3288 

3212 IF Y$="Y" THEN LET CO=1@@: GO SUB 

3995: GO TO 328a 

3213 IF Y$="N" THEN LET Y#="": GO TO 32 

22 

3226 IF 2$="T" AND ATTR CUJ,UIJ=16 AND VU 
I<? AND UJ<? THEN LET Q$="YOU MAY BUY A 

N AXE FOR 15@ PIECES OF GOLD": GO SUB 38 

98: GO SUB 3862 

3221 IF Y$="Y" AND G>=15@ THEN LET ST=S 
T+7?5: LET G=G-15@: LET I$=I$+"/AN AXE": 
LET Y$="": GO TO 3208@ 

a222 IF YS="T" THEN LET CO=15@> GO SUB 
39395: GO TO 328@ 

3223 IF Y$="N" THEN LET Y¢="": GO TO 32 
2B 

3225 IF @$="T" AND ATTR CVUJ,UIJ=16 AND VU 
I>17 AND VI<23 THEN LET QO$="7T WILL SELL 
YOU A GREEN GEM FOR 2@@ PIECES OF GOLD" 
> GO SUB 3888: GO SUB 386a 

3226 IF Y¢$="Y" AND G>=20@ THEN : LET G=G 
-200: LET I$=]¢+"/7A GREEN GEM": LET Y$=" 
"2? GO TO 3280 

322? IF Y$="Y" THEN LET CO=2@@: GO SUB 

39395: GO TO 328@a 

3228 IF Y$="N" THEN LET Y$#="": GO TO 32 

BB 

3236 IF 2$="C" AND ATTR CUJ;UIJ=16 AND Y 

J<4 AND CCVYI>D1@ AND VI<14) OR CUI>26 AND 
VI<38)) THEN LET Q$¢=R$CINT CRNDXS)+1): 
GO SUB 38@@: LET H=INT CRNDX1@): LET G= 

G-H: LET Q$="AS PAYMENT FOR HIS PEARLS O 

F WISDOM, YOUR COMPANION STEALS "+STR$ H 

+" GOLD PIECES": GO SUB 38a@ 

3298 IF VJ=2@ THEN GO TO 6@ 

3293 GO TO 3288 

3386 GO SUB 3928@a 


3305 LET z$=INKEY$ 
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33@6>1F z$=""THEN GO TO 3398 

3310 IF 2$="T" AND ATTR CUJ,UIJ=16 AND U 
1<6 THEN LET Q$="YOU MAY BUY 188 UNITS 
OF FOOD FOR 75 PIECES OF GOLD": GO SUB 3 
8@8: GO SUB 3862 

3311 IF Y$="Y" AND G>=7S5S THEN LET F=F+1 
@@: LET G=G-75: LET Y$="": GO TO 3320 
3313 IF Y$="Y" THEN LET CO=1@@: GO SUB 
3995: GO TO 33a@ 

3328 IF 2$="T" ANJ ATTR CUJ,;UIJ=16 AND VU 
I>8 AND VI<16 THEN LET Q$="YOU MAY BUY 
A COMPASS FOR 2@@ PIECES OF GOLD": GO SU 
B 38@@: GO SUB 3862 ; 
3321 IF Y$="Y" AN G>=2@@ THEN LET G=G- 

200: LET I$=I¢+"7 A COMPASS": LET Y$="": 
GO TO 3302 

3322 IF Y$="Y" THEN LET CO=2@@: GO SUB 

3995: GO TO 33a@ 

$323 IF Y$="N" THEN L&T Yf="": G. TO 33 

22 

3338 IF 2$="T" AND ATTR CUJ,UIJ=16 AND VU 
I>139 AND VI<27? AND UJ<5 THEN. LET Q$="YO 
U CAN BUY A RED GEM FOR 2@@ PIECES OF GO 

LD": GO SUB 3808: GO SUB 3862 

3331 IF Y$="Y" AND G>=2@@ THEN LET G=G- 
208: LET I$=I$+"7 A RED GEM": LET Y$="": 
GO TO 33aa 

3332 IF Y$="Y" THEN LET CO=28@: GO SLB 
3995: GO TO 3322 

3333 IF Y$="N" THEN LET Y$="": GO TO 33 
2a 

3398 IF UJ=2@ THEN GO TO 60 

3399 GO TO 3320 

3480 GO SUB 3922 

3498 IF UJ=2@ THEN GO TO 62 

3433 GO TO 34a@ 

35@@ GO SUB 39aa 

3585 LET Z$=INKEY$ 

3506 IF 2$="" THEN GO TO 3598 
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3516 IF 2¢="T" AND ATTR CUJ,UIJ=16 AND VU 
I<? THEN LET Q¢="YOU CAN BUY 58 UNITS O 

F FOOD FOR 4@ PIECES OF GOLD": GO SUB 38 

96: GO SUB 3862 

3511 IF Y$="Y" AND G>=4@ THEN LET F=FtS 
@: LET G=G-48: GO TO 35a@a 

3512 IF Y¢="Y" THEN LET CO=4@: GO SUB 3 

335: GO TO 35aa 

3313 IF Y#="N" THEN LET Y$="": GO TO 35 

28 

3528 IF 2¢="T" AND ATTR CUJ,UIJ=16 AND U 
I>1@ AND VI<14 THEN LET Q$="YOU CAN BUY 
A SPELL FOR 2@@ PIECES OF GOLD": GO SLB 
3886: GO SUB 3866 

3521 IF Y$="Y" AND G>=2@@ THEN LET G=G- 
200: LET I¢=I¢+"7 A SPELL": GO TO 35a@ 
3522 IF Y$="Y" THEN LET CO=2@@: GO SUB 
3995: GO TO 358@ 

3523 IF Y$="N" THEN LET Y¢="": GO TO 35 
2B 

3536 IF @¢="T" AND ATTR CUJ,;UIJ=16 AND VU 
I>26 AND VJ>S THEN LET Q$#="YOU CAN BUY 

A LONG-BOW FOR 15@ PIECES OF GOLD": GO S 

UB 3888: GO SUB 3862 

3531 IF Y¢="Y" AND G>=15@ THEN LET ST=S 

T+106: LET G=G-15@: LET I$=I$¢+"7 A LONG- 

BOW": GO TO 358@ 

3532 IF Y$="Y" THEN LET CO=15@: GO SUB 

3995: GO TO 358@ 

3533 IF Y$="N" THEN LET Y¢="": GO TO 35 

88 

354@ IF 2¢$="C" AND ATTR CUJ,UI3=16 AND YU 

J<8 THEN LET Q$=R#CINT CRND*¥S)+1): GOS 

UB 38@@: LET H=INT €RND*19): LET G=G-H: 

LET Q¢$="AS PAYMENT FOR HIS PEARLS OF WIS 

DOM, YOUR COMPANION STEALS “+STR¢ H+" GO 

LD PIECES": GO SUB 38a@ 

35398 IF UJ=28 THEN GO TO 6@ 

3533 GO TO 3588 
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368@ GO SUB 33988 

3685 LET @$=]NKEY$ 

3666 IF @¢="" THEN GO TO 3638 

361@ IF 2$="T" AND ATTR CUJ,UIJ=16 AND VU 
I>16 AND UI<22 THEN LET Q¢="YOU MAY BUY 
A CROSS-BOW FOR 4@@ GOLD PIECES.": GOS 
UB 3800: GO SUB 3860 

3611 IF Y$="Y" AND G>=4@@ THEN LET ST=S 
T+15@: LET [$=] $+"/CROSS-BOW": LET G=G-4 
Q@: LET Y$="": GO TO 3688 


3612 IF Y$="Y" THEN LET CO=48@: GO SUB 
3995: GO TO 3688 


3613 IF Y$="N" THEN LET Y$="": GO TO 36 
2a 

3628 IF Z$="T" AND ATTR CUJ,UIJ=16 AND U 
1>24 AND VI<3@ THEN LET Q$="YOU MAY BUY 
A GREEN GEM FOR 3@@ GOLD PIECES.": GO S 
UB 38282: GO SUB 386a 

3621 IF Y¢="Y" AND G>=3@@ THEN LET I$=] 
$+"/GREEN GEM": LET G=G-3@0: LET Y$="": 
GO TO 36aa 

3622 IF Y$="Y" THEN LET CO=38@: GO SUB 
3995: GO TO 3600 

3623 IF Y$="N" THEN LET Y$="": GO TO 36 
2B 

3698 IF UJ=28 THEN GO TO 60 

3639 GO TO 3602 

3788 GO SUB 3902 

3785 LET @$=INKEYS 

3706 IF 2$="" THEN GO TO 3798 

3718 IF @$="T" AND ATTR CUJ,UI)J=16 AND U 
I<S AND UJ<? THEN LET Q$="I WILL SELL Y 
OU A BLUE GEM FOR 2@@ GOLD PIECES.": GO 
SUB 3802: GO SUB 386a 

3711 IF Y$="Y" AND G>=2@@ THEN LET I$¢=] 
$+"/BLUE GEM": LET G=G-2@@: LET Y$="": G 
0 TO 3728 

3712 IF Y$="Y" THEN LET CO=2@@: GO SLB 
3995: GO TO 3720 
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3713 IF Y$="N" THEN LET Y$="": GO JO 37 

2B 

3720 IF @$="T" AND ATTR CUJ;UI3J=16 AND V 

I<? AND VJ>8 AND UJ<12 THEN LET Q$="T W 

ILL. SELL YOU A SEXTANT FOR S@@ GOLD PIEC 

ES.": GO SUB 388@: GO SUB 3862 

3721 IF Y$="Y" AND G>=5@@ THEN LET I[$=I 

$t"/SEXTANT": LET G=G-5@@: LET Y$="": GO 
TO 3788 

3722 IF Y$="Y" THEN LET CO=5@@: GO SUB 

3995: GO TO 3788 

3723 IF Y$="N" THEN LET Y$="": GO TO 37 

Z}¢) 

3730 IF @$="T" AND ATTR CUJ,;Y¥IJ=16 AND V 
I1<3 AND VJ>14 THEN LET Q$="T WILL SELL 

YOU A NEEDLE FOR 1 GOLD PIECE": GO SUB 3 

880: GO SUB 3862 

3731 IF Y¢="Y" AND G>=1 THEN LET I$=I$+ 
“/NEEDLE": LET G=G-1: LET Y$="": GO TO 3 

788 

732 if Ys="Y" THER LET CO=]2 GO SUB 34 
35: GO TO 37288 

3/33 IF YS="N" THEN LET Ys=""s GO TO 3? 
2 

3748 IF @$="T" AND ATTR CUJ,UIJ=16 AND VU 
I>11 AND UI<13 THEN LET Q$="YOU CAN BUY 
1@@ UNITS OF FOOD FOR 4@ GOLD PIECES": 
GO SUB 38088: GO SUB 3862 

3741 IF Y$="Y" AND G>=4@ THEN LET F=F+1 
Q@: LET G=G-4@: LET Y$="": GO TO 3780 
3742 IF Y$="Y" THEN LET CO=4@: GO SUB 3 
395: GO TO 378d 

3/42 iF TS2"N" THEN LET Tae"": GO TO 237 
88 

3754 IF @¢="T" AND ATTR CUJ,UIJ=16 AND VY 
1>26 AND UJ>8 THEN LET Q$="YOU CAN BUY 
A LASER PISTOL FOR 2@0@ GOLD PIECES": GO 
SUB 3888: GO SUB 3868 


3751 IF Y¢="Y" AND G>=2@@@ THEN LET [$= 
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I¢t+"/LASER PISTOL": LET G=G-2@0@: LET ST 
=ST+5S99: LET Y$="": GO TO 3780 
3752 IF Y$="Y" THEN LET CO=2@08: GO SUB 
33935: GO TO 37a8¢ 
3753 IF Y$="N" THEN LET Y$="": GO TO 37 
aa 
3768 IF 2¢="C" AND ATTR (VUJ,UIJ=16 AND VU 
J<4 AND UI>26 THEN LET Q$=R$CINT CRNDXS 
J+1): GO SUB 3880: LET H=INT CRNDX1@8): L 
ET G=G-H: LET Q¢="AS PAYMENT FOR HIS PEA 
RLS OF WISDOM, YOUR COMPANION STEALS "+S 
TRE H+" GOLD PIECES": GO SUB 38a8a 
3738 IF UJ=20@ THEN GO TO 6@ 
3733 GO TO 3788 
3888 PAPER 7: FOR K=1 TO LEN Q¢ 
381@ IF K>32 THEN PRINT AT 21;,;93;Q$CK-31 
TO K): BEEP .91,;4: GO TO 3832 
3828 PRINT AT 21,;32-K;Q¢C1 TO KJ: BEEP 
41,4: PAUSE 1 
3838 NEXT K 
3840 FOR K=1 TO 1@@: NEXT K 
385@ PRINT AT 21,03" 
RETURN 
3860 INPUT "Y/N" 3Y$ 
38728 RETURN 
39408 GO SUB 58aa 
3951 IF CJ<>@ THEN PRINT AT CJ;CI; PAPE 
R 2eej]* 
3955 LET A=a 
336@ IF ATTR CUJ+UN,UI+HMIJ=@ OR ATTR CUI 
+UM,UI+tHMJ=8 THEN BEEP .1,;5@: RETURN 
3965 IF VI+tHN<@ OR VI+tHM>31 THEN BEEP 
1,58: RETURN 
3970 IF UJ+UMN<@ OR Ul+UM>26 THEN RETURN 
3988 PAPER CATTR CUJ,UI378): PRINT AT VJ 
»UT3" " 
3982 LET UJ=UJ+UM: LET UJ=UI+HM 
3985 PAPER CATTR CUJ,UIJ783: PRINT AT VJ 
sUTG"a" 
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3986 GO SUB 6182 

399@ RETURN 

3995 IF G<CO THEN LET Q¢$="YOU CANNOT AF 

FORD THIS": GO SUB 38@@: LET Y¢#="": RETU 

RN 

4802 REM x CASTLE ROUTINE x 

4881 LET WK=2 

491@ LET DEF=NOT PI: INK @: POKE 590@5,2 

24: POKE 59026, 251 

4038 IF I=2@ AND J=55 THEN LET C$="PRIM 

US": LET W=10@: LET FF=28 

4040 IF I=35 AND J=11 THEN LET C$#="SECU 

NDAS": LET W=20@: LET FF=5a 

4@5@ IF I=86 AND J=9 THEN LET C$#="TRIAC 

US": LET W=30@: LET FF=1a@ 

4@6@ CLS : PRINT : POKE 23689,24: RANDOM 
IZE USR 53001 

4Q@7@ LET UN=8 

4Q@71 LET UJ=18: LET UI=13 

4982 GO SUB 3992 

499@ IF UJ=19 AND WO=3 THEN GO TO S33aa 
4994 PRINT AT 4,43 PAPER 2; INK WK3"h" 
4@95 IF UJ=19 THEN PAPER 7: GO TO 62 
41@@ IF ATTR CUJ,UI)=24 THEN LET ST=ST- 
FF: LET Q¢$="YOU ARE IN A FORCE FIELD AND 
LOSE "+STR¢ (FFJ+" STRENGTH POINTS": GO 
SUB 3822 

4195 IF ST<@ THEN GO TO 92aa 


4110 IF ABS CYI=4) <=1 AND ABS CY-4) <=] 
AND FIRE=1 THEN GO TO 4288 

412@ GO TO 4888 

4206 REM X FIGHT x 

4261 IF DEF=1 THEN GO TO 4880 


4284 LET HD=INT CRNDXW): LET AD=INT CRND 
XST) 

4285 LET FIRE=NOT PI: LET W=W-AD: LET ST 
=ST-HD 


424@ LET Q$="RESULT OF COMNBAT..."+STR$ A 
D+" POINTS FOR 7 "+STR$ HD+" POINTS AGAI 
NST": GO SUB 3888 
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4258 IF ST<@ THEN GO TO 9280 

4268 IF W<@ THEN LET WD=WD+1: LET DEF=1 
> LET WK=2: LET Q$="YOU HAVE DEFEATED TH 

E WARLOCK OF “+C$+" CASTLE": PAPER 2: PR 
INT AT 4,43" ": GO SUB 3800: IF I=86 THE 

N LET W3=@ 

4261 IF I=35 THEN LET W2= 

4262 IF I=28 THEN LET W1=@ 

427@ IF WD=1 THEN LET Q$="YOU MUST STIL 

L DESTROY 2 WARLOCKS TO END THE DARK TIM 

ES": GO SUB 388 

428@ IF WD=2 THEN LET Q@$="YOU MUST STIL 

L. DESTROY 1 WARLOCK TO END THE DARK TIME 

S": GO SUB 38aa 

4298 IF WDO=3 THEN LET Q$="THE DARK TIME 

S HAVE COME TO AN END. YOU NEED ONLY TO 

ESCAPE IN ORDER TO RECEIVE YOUR JUST REW 

ARD.": GO SUB 3890 

4322 GO TO 4080 

5808 LET A=25S-IN 61438 

5@@2 LET FIRE=@: LET YT=@: LET ZA=1: LET 
HM=NOT PI? LET UM=NOT PI 

5003 LET Al=A: IF A=@ THEN RETURN 

5@6Q IF A>127 THEN LET A=A~-128 

5878 IF A>63 THEN LET A=A-64 

S@8@ IF A>31 THEN LET A=A-32 

5@90 IF A>1S THEN LET A=A-16: LET HM=-1 

5188 IF A>? THEN LET A=A-8: LET HM=1 

5110 IF A>38 THEN LET A=A-4: LET UM=1 

5128 IF A>1 THEN LET A=A-2: LET UM=-1 

513@ IF A=1 THEN LET FIRE=1 

514@ RETURN 

6@@@ IF UN<>2 THEN LET CJ=INT CRNDX2Q): 
LET CI=INT CRND¥2@): IF ATTR (CJ,C1I)=16 


THEN PRINT AT CJ,CI3 PAPER 23"i": RETU 
RN 


60180 IF UN<>2 THEN LET CJ=@: LET CI=@: 
RETURN 

6620 IF RND<.3 THEN LET CJ=14: LET Cis2 
6: RETURN 

6838 RETURN 
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61@@ IF UN<>2 THEN IF UI=CI AND UJ=CJ T 

HEN LET H=INT CRNDX1@): LET Q¢="YOU FIN 

D "+STR$ H+" GOLD PIECES": GO SUB 3820: 

LET G=GtH: LET CJ=o 

6118 IF UN<>2 THEN RETURN 

6115 IF CJ=@ THEN RETURN 

6117 IF UJ<>CJ OR VI<>CI THEN RETURN 

612@ LET Q$="YOU SEE A GOLD CHEST BEFORE 
YOU": GO SUB 38a 

61308 LET 2$=INKEY$ 

6140 IF 2$="" THEN GO TO 613a 

615@ IF #$="0" THEN LET Q$="THE CHEST O 

PENS AND YOU SEE A CASTLE SHROUDED BY MI 

ST": GO SUB 3880: LET OPEN=1: GO TO 6130 

616@ IF OPEN=1 AND Z$="J" THEN LET Q$=" 
YOU JUMP INTO THE CHEST AND ARE TRANSPOR 

TED TO THE WARLOCK?’S MOLINTAIN CASTLE": G 

0 SUB 3800: LET I=86: LET J=9: LET CJ=0: 
GO TO 4a 

6178 RETURN 

7288 GO SUB 5222 

7131 IF FIRE AND NOT YT THEN GO TO 8690 

2132 IF J+UM=BY AND I+HM=BX THEN GO TO 

7133 

7133 IF ATTR CS+UM,8+tHM)>15 AND P$="b" T 

HEN BEEP .1,5@: IF SD=@ THEN RETURN 

7134 IF ATTR CS+tUM,8+HM)>15 AND P$="b" T 

HEN LET SD=8: GO TO 3010 

7135 IF CATTR CS+UM, 8t+HM)=8 OR ATTR (5+U 

M,8+HM)=56) AND P$="a" THEN BEEP .1,59: 
IF SD=@ THEN RETURN 

7136 IF CATTR C5+tUM,8+HM)J=B8 OR ATTR (S+U 

M,8+HM)=56) AND P$="a" THEN LET SD=@: G 

9 TO 93614 


7137 IF SCREEN# (5tUM,8tHM)<>" " THEN B 
EEP .1,;5@: IF SD=@ THEN RETURN 
7138 IF SCREEN# (5+UM,8+tHM) <>" ° THEN L 


ET SDP=@: GO TO 9818 
2133 INK @: PAPER 7: PRINT AT 28,123" 


LET F=F-INT CCATTR CS+UM, 8+HM) 3724): 
PRINT AT 20,123F 
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714@ IF F<@ THEN GO TO 92aa 

7145 LET I=I+HM: LET J=J+UM 

7146 IF P$="b" THEN LET BX=I: LET BY=J 

7147 IF ATTR (5,8)=24 THEN LET ST=ST-S: 
LET E=E+S: PRINT AT 16,123" “SAT 16; 
{SsE3AT 16.125" *iAT 1851235T? IF ST¢ 

Q THEN GO TO 92aa 

2158 POKE 57397, 1 

7155 POKE 57998,@ 

2168 POKE 57999, J 

2165 POKE 589@a,2 

217@ PRINT : POKE 23689,24: LET X=USR 58 

221 

2121 IF P$="b" THEN PAPER 1: INK 7: PRI 

NT AT 5;83"b" 

2175 IF P$="a" THEN PAPER ATTR (5;8)78: 
INK @: PRINT AT 5,83"a" 

7176 IF ABS (BX-I)<=8 AND ABS (BY-J)<=5 

AND P$="a" THEN PRINT AT S+BY-J,8+BX~-1 3 
PAPER 1; INK 73"b" 

7182 GO SUB 3aa2 

7185 IF YT=1 AND Al=25S-IN 61438 THEN G 

9 TO 8622 

7186 IF SD=1 THEN LET SD=@: GO TO 3a1a 

7198 RETURN 

75@8 RETURN 

8282 REM XMONSTERS* 

8018 FOR K=1 TO 20 

8@15 IF INKEY$<>"" THEN LET K=21: GO TO 
728a 

8828 IF MCK)=1 THEN GO TO 8@399 

8832 IF MCK}<>1 THEN GO TO 81993 

BQ4@ NEXT K 

B@5@ RETURN 

82939 IF ABS CICKJ-I}=1 AND ABS CJC(K)-J)= 
1 THEN GO TO 8242 

B1@@ IF JCKJ<J AND PEEK (S(K)+1@2)=1 THE 
N LET OLD=J(K): LET JCKJ=JC(KJ+1: LET SC 
=182: GO TO 8112 

81@1 IF JCK)J>J AND PEEK (S(K)J-1@2)=1 THE 


N LET GOLB=JCK) 2 LET JCKISJCKJ-12 LET SE 
=-102: GO TO 8118 
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8185 GO TO 816¢a 

S11@ IF PEEK S(KI3<=?7 THEN PAPER PEEK Sf 
Kj 

8111 INK ? 

@l1z2@ IF ABS CICKIJ=-13<=8 AND ABS (COLD-J)< 
=5 THEN PRINT AT €S+0OLD-JJ; 08+1(KIJ-22 5" 


2142 IF ABS CILK)J-1)<-6 AND ABS CI(KI—-J) 
<=5 THEN PRINT AT CS#JICKI=JI5 C8tl(KJ=1) 
sCHRS C145+MNCK)I) 

815@ LET SCKJ=SCK)+SC 

8155 INK @ 

S162 IF ICKJ<I AND PEEK (S(KIJ+13=1 THEN 
LET OLD=[(K32 LET ICKISICKRI+1> LET SCH] 
> GO TO 8178 

8161 IF ICKI>I AND PEEK CSCKJ-1)=1 THEN 
LET OLDeiCKI? LET ICKIJ=]teI-1? LET St] 
1: GO TO 8178 

g165 GO TO 8840 

817@ PAPER PEEK SCK): INK 7? 

8171 IF ABS COLD-I)<=8 AND ABS CJCKI-J)< 
=o THEN PRINT AT Cs4JCKJ=JJ5 (80Lp=-1)3" 


8175 IF ABS CICKI-I1)<=8 AND ABS CJCKI-J) 
c=3 THEN PRINT AT CStJCKI—J)5 (8% 1 CKI-T 3 
;CHRE C145+MNCKI) 

8186 LET SCKJ=SCKI+SE 

8138 INK @ 

8135 GO TO 8848 

G@133 IF ABS CICKI-1]<=1 AND ABS (JCKI=J) 
<=1 THEN GO TO 8380 

8260 IF JCKJ<J AND PEEK (SCKJ+182)<>1 TH 
EN LET OLD=J(KI" LET JCKI=J(KI¢1: LET S 
C=182: GO TO 8218 

8261 IF JCKJ>J AND PEEK (SCKJ-182)<>1 TH 
EN LET OLDSJ(KI2 LET JOKJ=J(K3-12 LET S 
C=-182: GO TO 8218 

8285 GO TO 8268 


621@ PAPER PEEK SCKJ 
8211 INK @ 


ae ne ee ae 
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B228 IF ABS CICKIJ-1J<=8 AND ABS COLD-Jj< 
=5 THEN PRINT AT CStOLD-J),C8+tICKI-II5" 


82386 PAPER PEEK CSCK)J+SC) 

8242 IF ABS CICKJ-I)<=8 AND ABS CJCKIJ-JI 

<=5 THEN PRINT AT €SeJCKI—d)s (erithi-13 

3CHRS C145+MCKII 

8250 LET SCKJ=SCKI*SC 

8255 INK @ 

8268 IF ICKIJ<I AND PEEK CSCKJ+1)<>1 THEN 
LET OLD=ICKI2 LET ICKIJ=[CKItle LET SC= 

1: GO TO 8278 

B26] TF ICKIZE @ND PEEK C(SCRI-13<>1 THEN 
LET OLD=ICKJ2 LET ICKIJ=ICKI-1: LET SC= 

-l: GO TO 8276 

8265 GO TO 8840 

8270 PAPER PEEK SCKJ: INK @ 

8271 IF ABS COLD-I})<=8 AND ABS CJCKI-JI< 

=53 THEN PRINT AT CStJCKIJ-JJ,(8+0LD-I) 3" 


8275 IF ABS CICKJ-I)<=8 AND ABS CJCK)-J) 
<=5 THEN PRINT AT CStJCKI-J),C8+ICKI-I13) 
sCHR# C145+MNCKI I 

8286 LET SCKJ=SCKI+SC 

8295 GO TO 8846 

8380 LET AD=INT CRNDX19) 

8305 LET H$=I$¢ 

8314 LET J$=STR¢ (CAD) 

832@ LET I¢="ATTACKED BY MONSTER “tJ$t" 
DAMAGE POINTS SUSTAINED" 

8338 GO SUB 8584 

8348 LET I]$=H$ 

8358 LET ST=ST-AD 

8368 PAPER 7: INK @: PRINT AT 183,123" 

* PRINT AT 18,125ST 

8365 IF ST<@ THEN GO TO 93280 

8378 GO TO 8848 

8588 INK @: PAPER 7: FOR K=1 TO LEN CI$) 
+] 
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8510 IF K>13 THEN PRINT AT 14,183I1$(K-1 
3 TO K-1): BEEP .@1,5: PAUSE 2: GO TO 85 
304 
852@ PRINT AT 14,31-K3;I$(1 TO K}: BEEP 
31,5: PAUSE 2 
| 8538 NEXT K 
| 8540 PAUSE 5@: PRINT AT 14,183" 
| ": RETURN 
| 8688 REM XFIGHT ROUTINEx 
8681 LET YT=1 
86@5 IF HN=@ AND UM=@ THEN BEEP .1,59: 
GO TO 7185 
8618 IF SCREEN$ (5+UM,8+tHMJ=" " THEN BE 
EP .1,5@: GO TO 7185 
8622 FOR R=1 TO 30 
g63@ IF J+UM=JC(R} AND I+HM=ICR) THEN LE 
T MN=R: GO TO 8658 
8642 NEXT R 
8652 LET AD=INT CRNDXST/S) 
8668 LET HD=INT CRNDX1@) 
8672 LET H(MN)=H(MNJ-AD 
8682 LET ST=ST-HD 
8690 PAPER 7: INK @: PRINT AT 18,183" 
“2: PRINT AT 18,183;"FOR..... "AD 
8788 PAPER 7: INK @: PRINT AT 19,183" 
“: PRINT AT 19,183;"AGAINST." 3HD 
871@ PRINT AT 18,123"  “: PRINT AT 1851 
2;8T 
8715 IF ST<@ THEN GO TO 92a@ 
872@ IF H(MNJ>@ THEN GO TO 7185 
8738 PRINT AT 19,183" i 
874@ PRINT AT 18,183" 
8759 PRINT AT 18,22;"MONSTER " 
8762 PRINT AT 19,22;"IS DEAD " 
8790 LET GD=INT CRNDXCMNXS)) 
8880 PRINT AT 298,223;"GOLD="3;GD 
8810 LET G=G+GD 
8828 PRINT AT 14,123" “: PRINT AT 14,1 
23G 


8838 PAUSE 5@ 


5 a A AEN te 
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8835 PAUSE 52 

8848 PRINT AT 18,183" 

8850 PRINT AT 19,183" 

8868 PRINT AT 20,183" ; 

8878 PAPER INT CATTR CStUM, 8+tHM)78): PRI 


NT AT StUM, 8tHM;" "2 PAPER 2? 

889@ LET E=Ertl 

8306 PRINT AT 16,123" “2: PRINT AT 1631 
23E 


89318 LET JCNNI=INT CRNDX68) 


8915 LET ICMNJ=INT CRNDX102) 
33208 LET S=CCJCMNIJ-1)X182)+I1(MNJ+59088 


8325 IF PEEK S=1] THEN LET MCMNJ=1: GO T 

9 8335 

8393@ LET MCMNJ=INT CRND¥5)+1 

8335 LET SCMNJ=S 

8348 LET HCMNNJ=MNCMNJX6 

8958 GO TO 7185 

8333 STOP 

3000 REM xCOMPLETE MAPX 

3001 FOR K=21 TO 38 

9002 IF MCKIJ=1 THEN PAPER 1: INK ? 

3803 IF NCKIJ<>1 THEN PAPER PEEK SCKJ: I 

NK @ 

3084 IF ABS CICKIJ-1I3<=8 AND ABS CJCKI-J) 
¢<=3 THEN PRINT AT CStJCKI-JI; 08+ICKI-T) 
*CHRE C145+MCKI I 

3085 NEXT K 

3886 IF P$="b" THEN INK 7? 

3887 PAPER ATTR (€5;,8)78: PRINT AT 5;85P$ 

99008 IF IN 61438<¢>255 THEN LET SD=1: GO 
TO 78@B 

3826 GO TO 3848 

3435 PAPER 7: INK @ 

384@ FOR P=1 10 28 

9841 IF INKEY$<>"" THEN RETURN 

3@5@ IF ABS CICPIJ-I13<=8 AND ABS CJCPI-J) 
<=5 THEN GO TO 93856 

3855 GO TO 3188 

S6a6 PAPER CPEEK S(P)3 
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3857 IF PEEK SCP)=1 THEN INK 72 

3@6@ PRINT AT CStJCPJ-J), (8+1CPIJ-1)3CHR$ 
(145+NCP)) 

3861 PAPER 7: INK @ 

3188 NEXT P 

3118 RETURN 

3286 PAPER 7: INK B 

3205 LET I$="YOU ARE DEAD222°9GAME OVER" 

3218 GO SUB 858@@: GO TO 9218 

3360 GO SUB 95@@: LET Q$="ALL HAIL THE C 

ONQUERING HERO22": GO SUB 38@a: GO TO 9 

388 

3588 REM xMUSICX 

9565 LET N1=.25: LET N2=,@625: LET N3=.1 

25 

351@ BEEP N2,21: BEEP N2Z,19: BEEP .3;21: 
PAUSE 16: BEEP N2,19: BEEP N2,17: BEEP 

N2Z;16> BEEP N2,14: BEEP N1,13: BEEP .4,1 

4° PAUSE 23: BEEP N2,7: BEEP N2;5 

9528 BEEP N1,7: PAUSE 18: BEEP .17,4: BE 
EP ,l¢sSt BEEP .j4,]7 BEEP 1,2: BEEP Ne, 
~-a@ BEEP N2,-S: BEEP .95,-@2 BEEP N2Z,-8: 
BEEP N2,~/> BEEP.N2,-@:? BEEP N2,-1@2 BE 

EP N1,-11: BEEP 2,-18 

3330 BEEP Nl,-22? BEEP Nl»~11* BEEP N1,= 

8: BEEP N1,-5: BEEP N1,-2: BEEP Nl;1: BE 

EP .5;4? BEEP N1,;-5: BEEP N1;-8: BEEP .? 

33-6 

S68@ RETURN 

3986 REM XSAUE GAMEX 

3316 LET Q$="THE GAME WILL NOW BE SAVED 

AT THE CURRENT POSITION....PRESS PLAY AN 

DB RECORD THEN HIT ANY KEY" 


9928 LET H$=I¢: LET I$=Q$: GO SUB 85a@a 
9925 LET I$=H¢ 

39380 SAVE "“QUADRILAND" LINE 6@ 

39348 RETURN 


6 
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Scenario 


Many years ago your father, the king of Daal, was killed by the 
evil warlock Dalverna with a spell that draws the life force out of 
the recipient. At the age of 21, you are now ready to become king, 
but before you are able to wear the golden crown you must 
avenge the death of your father and rid your people of the wicked 
Dalverna for all time. 

Armed with just a dagger and few weak spells, and wearing a 
suit of leather armour, you enter the warlock’s dungeon, and your 
great quest begins. 
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Hints on Entry 


The program is very long, occupying a large portion of the 
Spectrum’s 48K of memory. It contains a great deal of data and 
graphical characters which, as usual, should be entered with 
great care. 

There are three main areas where errors may occur and these 
are listed below so that special care and attention may be taken. 


1) The graphics S in lines 1750-1990 are blocks @ , obtained by 
using the GRAPHICS CAPS SHIFT 8 keys, as used in 
Supertank and as described in the Spectrum manual. 

2) The lines from 9000-9460 represent the user-defined graphics, 
and it is important that the numbers are entered carefully. 

3) The map is defined from 9500-9593 with each data line 
consisting of six values. Take great care not to omit any 
numbers, and check that each line is entered accurately, before 
continuing with the next. 


When the program has been entered and checked, save it onto 
tape using the command 


SAVE “D&D” LINE 10 


Techniques 


Throughout this book reference is being made to user-defined 
graphics. These are very useful when writing games of this type 
as they allow the programmer to construct his own characters 
which can then be reproduced on the screen. 

The operating system of the Spectrum has facilities for 21 such 
user-defined graphics, and these are obtained using the 
characters GRAPHICS A to GRAPHICS U. If more than the 21 
user-defined graphics (U.D.G.s) are required, we could resort to 
the more complex method of redefining the complete character 
set, and this is explained in the Techniques section of Chapter 2. 

A character on the Spectrum, as with most small micro- 
computers, is based on an 8X8 grid as shown in Fig. 4. 

To design a character, first make a grid and then shade in the 
required squares. When this has been completed the information 
contained in each row must be converted into numerical form. 
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00111100 
01000010 
10000001 
10000001 
10011001 
10011001 
10011001 
11111111 


Fig, 4, 


This is achieved by using binary notation with a 1 to represent a 
shaded square and a0 to represent a blank square. 

These numbers must now be entered into memory at the 
appropriate place. This can be achieved by using a command 
such as 


POKE USR “A” BIN 00111100 


An alternative method of entry is to use the short program listed 
below, which not only inserts the numbers into memory but also 
produces an enlarged character on the screen. 


1@ CLS 

15 DIM BS(8, 8) 

2@ PRINT TAB (€3)3;"CHARACTER DESIGNER" 
38 PRINT TAB (9) 3"sss=ssss== sossesem" 
4@ PRINT 

5S@ INPUT "GRAPHICS LETTER=" 5A$ 

SS PRINT =: PRINT TAB (4)3"BINARY"3 

38 PRINT TAB (4) 3"======" 

6@ FOR I=1 TO 8 

7@ INPUT "BINARY NUMBER=" ;1$ 

73 IF LEN CI$3<>8 THEN GO TO 72 

76 LET BSCIjJ=I$¢ 

8@ PRINT TAB (4)3;BSCI) 

3@ NEXT I 

19@ CLS 

11@ PRINT TAB (€7)3;"ENLARGED CHARACTER" 
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{2@ PRINT TAB (7) §"e=seeee=e =eeeeesee” 

13@ FOR J=1 TO 8 

135 LET S=@ 

14@ FOR I=1 TO 8 

15@ IF B$CJ,IJ="@" THEN PRINT AT J+5, 1 
figs 

168 IF BS$CJ,IJ="1" THEN PRINT AT J+5,1 
+183;"?": LET S=S+CUAL (B$(J,133*C(2*(8-1) 
1) 

17@ NEXT I 

18@ POKE USR A$+(J-1),S 

19@ NEXT J 

195 PRINT : PRINT : PRINT 

2@8 PRINT “CHARACTER HAS NOW BEEN DEFIN 
ED. * 

281 PRINT 

2@5 PRINT "DO YOU WISH TO DEFINE ANOTHE 
R CHARACTER?" 

286 INPUT "Y/N"3Y$ 

207 IF Y$="¥" THEN GO TO 18 

218 STOP 


Playing Instructions 


At the start of the game you are placed in room 1, and your quest 
is to move around the dungeon in search of weapons, treasure 
and artefacts to help you in your ultimate task: the killing of 
Dalverna. During the game information concerning your attri- 
butes, weapons spells, etc. will be displayed on the screen, and 
these should be watched carefully as they affect the over-all 
outcome of events. 


Movement 


Movement around the dungeon is achieved by using the keys 
shown in Table 8. 

In general the monsters will move faster than you, and it is 
therefore very difficult to escape. If you are caught by one of the 
monsters then combat commences and continues to the death. 
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Table 8 
Key Direction 
7 Up 
6 Down 
8 Right 
5 Left 


Commands 


Since this is a real-time game and the combat is initialized 
automatically, there are very few commands to consider. All 
necessary commands are operated by a single key stroke as 
indicated in Table 9. 


Table 9 
Key Command 
P Pick up object 
D Drop object 
S Cast spell 


You can only wear one suit of armour or carry one weapon at any 
time; therefore to change your status, you must first drop your 
current possession. 


Spells 


When the S or cast spell command is used, the real-time operation 
will stop to enable the type of spell to be stated. There are five 
different spells available which operate as follows: 


INVS This causes you to become invisible and escape from 
monsters. 
WEB This causes a monster to be immobilized temporarily. 


CURE This is used to increase your hit points and thus 
improve your fighting ability. 

LBLT This sends a lightning bolt at the monster causing 
between 10 and 30 points of damage. 

FBAL This sends a fireball at the monster causing between 10 
and 40 points of damage. 
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Player attributes 


During the game it is important to keep a careful watch on the 
four attributes shown on the screen, since these affect the game in 
the following way: 


CF, (combat factor) This is your ability to hit and injure 
your opponent. It will depend on your weapon and 
will be in the range 0-9. 

D.F. (defence factor) This is your ability to avoid being 


hit and being injured by your opponent. It will 
depend on your armour and will be in the range 0-9. 
FLLP, (hit points) This is your life force. It will lie in the 
range 0 (dead) — 50 (maximum strength). 
T.GOLD _ (total gold) This represents the total gold which you 
have collected and improves your total score. 


Weapons/armour 


When dropping an object it is important to refer to its correct 
name since abbreviations are often used (see Table 10). 


Table 10 

Object Abbreviation 
Dagger DAGGER 
Mace MACE 
Short sword S.SWRD 
Long sword L.SWRD 
2-H sword 2H.SWD 
Magic sword M.SWRD 
Leather armour LEATHR 
Chain armour CHAIN 
Plate armour PLATE 
Magic armour MPLATE 


Adaptation 


The game has been designed so that a simple process will allow 
you to design a more complex plan and thus create a new 
scenario. 
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First construct your map by designing a plan showing the rooms 
and how they are linked (see Fig. 5). 


When the map has been completed, its contents must be 
changed into numerical form and stored in the program 
beginning at line 9500 (for room 1) and continuing in sequence 
according to room number. Each data line must contain six pieces 
of information, indicating the dimensions of the room and the 
position, if any, of the various exits. Thus 


DATA LENGTH,WIDTH,N,E,S,W 
where 


LENGTH Length of room. Even number 12-20 
WIDTH Width of room. Even number 6-12 


N Room to which the north exit is connected 
E Room to which the east exit is connected 

S Room to which the south exit is connected 
W Room to which the west exit is connected. 


Therefore, for the above map we would have 


9200 DATA 16,8,2,3,5,8 
9201 DATA 20,10,0,6,1,9 


Note 
If there is no exit in a particular direction then this is represented 
using a 0. 
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When the map has been completely entered into the program 
we must change line 450 to 


450 FORI = 1TO ROOM 


Where ROOM is the number of rooms in the dungeon. 
The game has now been redesigned and can be saved onto tape 
or played in the usual way. 


Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 
2) SPACES WITHIN THE TEXT SHOULD BE ENTERED AS LISTED. 
3) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


1@ REM *k ARRAYS xx 

28 DIN LC188): DIN WC1aa) 
3@ DIM 0C168,4): DIN QC56) 
4@ DIN SC16): DIM Cl4a) 
5@ DIN TC8): DIN NCB) 

7@ REM *k UARIABLES xx 

64 LET IV=1: LET WE=1 

3@ LET CR=1: LET FB=1: 
106 LET LB=1 
11@ LET A$="LEATHR" 
12@ LET W$="DAGGER" 
13@ LET HP=5a 
14@ LET CF=2: LET DF=4 
15@ LET G=@ 


155 LET MO=@ 


16@ LET X=5: LET Y=5 

165 CLS 

17@ REM X¥xX U.D.G’S xx 
18@ REM *k CHARACTER xXx 
19@ RESTORE 39362@ 

2086 FOR I=1 TO 4@ 
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21@ READ CCI) 

226 NEXT I 

23@ FOR I=] TO 8: POKE USR "A"+CI-1),CC 
I}: NEXT I 

24@ FOR I=S TO 16: POKE USR “B"+tCI-39);C 
C13: NEXT I 

250 POR I-17? TO 24: POKE USR °C*+€ I-17) 
sCLIJ2 NEXT I 

26@ FOR I=25 TO 32: POKE USR "“D"+(C I-25) 
>CCIJ: NEXT I 

276 FOR I=33 TO 4@: POKE USR "“E"+(C I-33) 
»CCIJ: NEXT I 

28@ REM *xk SPELL xXx 

23@ RESTORE 938694 

306 FOR I=] TO 16 

31@ READ SCI) 

32@ NEXT I 

338 FOR I=] TO 8: POKE USR “F"+(CI=-1);S(C 
I}: NEXT I 

34@ FOR I=3 TO 16: POKE USR "G"+CI-93);S 
CI): NEXT I 

35@ REM xx GOLD xx 

36@ RESTORE 3128 

37@ FOR I=1 TO 8 

380 READ TCI) 

358 POKE USK “H*+CI-13; TCI) 

4@@ NEXT I] 

41@ REM ** INIT DUNGEON xx 

42@ PRINT FLASH 13; INK 23; PAPER 73AT 1 
@,;6;"INITIALIZING DUNGEON" 

43@ PRINT FLASH 13; INK 23; PAPER 2;AT 1 
1,1@;"PLEASE WAIT" 

44@ RESTORE 958@ 

go6 POR [=i To Sz 

468 READ LCI) 

470 READ WCI) 

48@ FOR J=1 TO 4 

4938 READ DCI,J) 

5@@ NEXT J 


155 
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51@ NEXT I 

52@ REM *xk QUEST xx 

533@ PAPER @: INK 7: BORDER @ 

348 CLS 

95@ LET RAP=INT CRNDX4)+66 

968 LET RCP=INT CRNDX4)+38 

578 LET RSP=INT CRNDX4)+38 

380 LET RDP=393 

53@ REM xXx U.D.G’S xx 

60@ RESTORE 9011 

610 FOR I=1 TO 56 

62@ READ QCI) 

638 NEXT I 

640 FOR I=1 TO 8: POKE USR "L"+CI-1),QC 
IJ: NEXT I 

658 FOR I=3 TO 16: POKE USR "m"+CI-3),0 
CI): NEXT I 

66@ FOR J=17 TO 24: POKE USR "n"+C€I-17) 
»QCIJ: NEXT I 

67@ FOR I=25 TO 32: POKE USR "o"+CI-25) 
»QCI3:= NEXT I 

688 FOR J=33 TO 4@: POKE USR "p"+CI-33) 
>QCIJ: NEXT I 

6398 FOR I=41 TO 48: POKE USR "q"+CI-413) 
»Q@CI3: NEXT I 

700 FOR J=45 TO S56: POKE USR *t"+C I-49) 
»QCIJ: NEXT I 

393 LET R=1 

1@@@ REM *k START GAME xx 

1818 REM xXx SET VARIABLES ZERO xx 


162@ LET MN$="": LET XMN=@: LET YN=@: LET 
RE=@: LET RM=@ 
1@3@ LET T$="": LET S$="": LET XT=@: LET 


YT=@: LET RT=@0: LET T=@ 

104@ LET GO=@: LET XG=@: LET YG=@: LET R 
G=@ 

1@5@ LET I¢="": LET XD=@: LET YD=@: LET 
DR=2 
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1960 LET INU=@: LET WB=@: LET S=1 
1863 IF R=RDP THEN GO TO 89a 
1865 IF R=RAP OR R=RCP OR R=RSP THEN GO 
TO 7350 

1878 REM *k MONSTERS xx 

1888 LET RE=INT CRNODX3)+) 

1898 IF RE<>3 THEN GO TO 1220 
119@ LET RM=INT CRNDX24)+1 

1181 LET MIC=INT CRND*4)+2 

1118 LET RM=RNxX10 

112@ RESTORE 3913@+RM 

113@ READ Ms 

114@ READ MHP 


115@ READ MPF: READ MCF 
116@ FOR I=1 TO 8 


117@ READ MCI) 

118@ POKE USR “"JI"+CI-1),MNCI) 

119@ NEAT I 

1206 LET XM=INT CRNDXCWCRI-2)) 

12693 LET YTM=INT CRNDXCLCRI-2)3) 

1216 IF XM<2 OR YMN<2 THEN GO TO 1282 
1211 REM *xX GOLD xx 

1212 LET RG=INT CRNDX1@)r1 

1213 IF RG<8 THEN GO TO 1226 

1214 LET GO=INT CRNDX1@@)+1 

1215 LET YG=INT CRNDXCLORIJ-2)) 

1216 LET XG=INT CRNDXAWCR) J 

1218 IF YG<¢2 OR XG<2 OR XG=xXM AND YG=YM 
OR XG=XT AND YG=YT THEN GO TO 1215 
122@ REM *X TREASURE xXx 

123@ LET RT=INT CRND*¥1@)+1 

1246 IF RT<8 THEN GO TO 17393 


125@ LET T=INT CRNDX7)+1 
1266 IF THEN GO TO 1338 


T=] 
1270 IF T=2 THEN GO TO 1416 
1288 IF T=3 THEN GO TO 1484 
1256 IF T=4 THEN GO TO 13514 
1306 IF T=S THEN GO TO 1546 
131@ IF T=6 THEN GO TO 1594 
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132@ IF T=? THEN GO TO 164@ 

1338 REM x SWORDS x 

134@ LET ST=INT CRNDX8)+1 

1356 IF ST=1 OR ST=2 OR ST=3 OR ST=4 THE 
N LET T$="S,SWRD" 

136@ IF ST=5 OR ST=6 THEN LET T$#="L,SWR 
Dp" 

1376 IF ST=? THEN LET T$#="2H, SWRD" 

139@ IF ST=8 THEN LET T$#="M, SWRD" 

14@@ LET TC=@: GO TO 1730 

1418 REM X* ARMOUR xX 

142@ LET AT=INT CRNDX8)+1 

143@ IF AT=]1 OR AT=2 OR AT=3 OR AT=4 THE 
N LET T$="LEATHR" 

1449@ IF AT=S OR AT=6 THEN LET T#="CHAIN 
1456 IF AT=? THEN LET T$#="PLATE" 

1466 IF AT=8 THEN LET T$="MPLATE" 

1478 LET TC=38: GO TO 173a 

148@ REM X DAGGER xX 

14936 LET T$="DAGGER" 

15@6 LET TC=6@: GO TO 1734 

1518 REM * MACE x 

1526 LET T¢#="MACE" 

153@ LET TC=4@: GO TO 1738 

154@ REM * POTION xX 

1545 LET PT=INT CRNDX3) +] 

155@ LET T$="POTION" 

156@ IF PT=1 OR PT=2 THEN LET S$="POTIO 
N OF HEALING" 

157@ IF PT=3 THEN LET S$#="POTION OF INU 
ISIBILITY" 

1588 LET TC=i@: GO TO 173a 

1598 REM X* RING xX 

1593 LET RR=INT CRNDX4)+1 

1595 LET T#="RING" 

16@@ IF RR=1 OR RR=2 THEN LET S$#="RING 
OF INUTSIBILITY® 


161@ IF RR=3 THEN LET S$="RING OF FIREB 
ALLS" 
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1620>1IF RR=4THEN LET S$="RING OF LIGHTNI 

NG BOLTS" 

16380 LET TC=2@: GO TO 1730 

164@ REM xX SPELL BOOK x 

165@ LET SR=INT CRNDXS)+1 

1668 LET T$="SPELL BOOK" 

167@ IF SR=1 THEN LET S$="INUISIBILITY" 
168@ IF SR=2 THEN LET S$="WEB" 

163@ IF SR=3 THEN LET S$="FIREBALL" 
1700 IF SR=4 THEN LET S$="LIGHTNING BOL 

tT! 

171@ IF SR=5 THEN LET S$="CURE" 

1720 LET TC=5@ 

173@ RESTORE 3S39@+TC 

1731 FOR J=1 TO 8 

1732 READ TCI) 

17384 POKE USER "J" +ClI—LJs TCL 

1735 NEXT I 

1736 LET XT=INT CRNDXCWCRI-2))+1 

1737 LET YT=INT CRNDXCLCRIJ-2))+1 > 
1738 IF XT=xXM AND YT=YM OR XT<2 OR YT<2 
THEN GO TO 1736 

17393 REM xX DRAW SCREEN xX 

174@ PAPER @: BORDER @: INK 7? 

1745 CLS 

1758 PRINT AT @,243;"ssssssss" 

176@ PRINT AT 1,243;"sARMOURs" 

1765 PRINT AT 2,243"s======s" 

1770 PRINT AT 33;243"s" 5A$ 

178@ PRINT AT 35;313"s" 

173@ PRINT AT 4,243"ssssssss" 

1886 PRINT AT 5;243;'"sWEAPONs" 

181@ PRINT AT 6,243"s======s" 

1820 PRINT AT 75;243"s" ;WS$ 

183@ PRINT AT 7;313"s" 

184@ PRINT AT 8;243;"ssssssss" 

185@ PRINT AT 9,243;"sSPELLSs" 

186@ PRINT AT 18,243"s======s" 

1878 PRINT AT 115;243"sINUS-";IU3"s" 

1888 PRINT AT 12,;243;"sWEB —-";WE;"s” 
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189@ PRINT AT 13,243;"sCURE-"5CR;"s" 
19@@ PRINT AT 14,03;"ssssssssssssssssssss 


sssssLBLT-"5LB;"s" 


13918 
19208 
1923 


PRINT AT 
PRINT AT 
PRINT AT 
1925 PRINT AT 
193@ PRINT AT 
ssssssssssss" 
1948 PRINT AT 

ssssssss" 
195@ PRINT AT 

sT.GOLDs" 
1960 PRINT AT 


1970 PRINT AT 


15,83;"ssC,F.=" SCF 
15;83"sD.F.="30F 3"s" 
15,153"sH.P.="3HP 

15,293 °SSFHAL~” jFe3*S* 
16,0;"ssesssssssesesssssss 
17,83 "Ss 

18,8;"s 

19; 0 3"s 


28,;83;"s 


s"5G 
198@ PRINT AT 
1998 PRINT AT 
ssssssssssss" 
2018 PRINT AT @;,;@;"t" 
2020 FOR L=1 TO LCR) 
2038 PRINT AT @,@0tL;"t" 
2048 NEXT L 
2050 FOR W=1 TO WCRI) 
2660 PRINT AT OtW,9;"t" 
2080 NEXT W 
2081 FOR L=1 TO LCR) 
2882 PRINT AT CW-1),L35"t" 
2083 NEXT L 
2084 FOR W=1 TO WCRI) 
2085 PRINT AT W;,CL-1)3;"t" 
2886 NEXT W 
2896 REM xX DOORS x 
210@ LET H=LCRI)72 
2118 LET V=WCRI72 
2120 FLASH 1: INK 5: PAPER @ 
213@ IF DCR, 1)>@ THEN PRINT AT @,H3"s" 
214@ IF DCR,;2)>@ THEN PRINT AT VU;L-13"s 


a 


20531¢"6" 
21,03;"ssssssssssssssssssss 
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215@ IF DCR,3)>@ THEN PRINT AT W-1;H3"s 
2151 IF DCR;4)>@ THEN “PRINT AT U,@;"s" 
2152 FLASH @: INK 7: PAPER @ 

2153 REM *xk DESCRIPTION xx 

2154 GO SUB 83aa 

2155 PRINT AT 17;13"DIMENSIONS:" 3LC(R)X12 
7 BY "SWCRIX1Q;"?" 

2156 PRINT AT 18,13;"MONSTER:" 

2157 IF M$<>"" THEN PRINT AT 18,95M¢ 
2158 IF M$="" THEN PRINT AT 18,93"LUCKY 
wis 

2159 PRINT AT 19,13;"TREASURE:" 

216@ IF T$<>"" THEN PRINT AT 19,183;T$ 
2161 IF T$="LEATHR" OR T$="CHAIN" OR T$= 
"PLATE" OR T$="MPLATE" THEN PRINT AT 13 
» 173" ARMOUR" 

2162 IF T$="" THEN PRINT AT 19;,18;"NONE 
2163 IF GO>@ THEN PRINT AT 2@,13"GOLD P 
IECES:";GO0 

2164 IF GO=@ THEN PRINT AT 2@,13"GOLD P 
IECES :NONE" 

217@ PRINT AT X,Y3"d" 

2188 REM *k PLACE CHARACTERSXX 

2185 IF WB=1 THEN PRINT AT XM, YM3"f": I 
F X=XM AND Y=YM THEN GO TO 7192 

2187 IF R=RAP AND T$<>"" THEN PRINT IN 
K 23AT XT; YT3"m": GO TO 2215 

2198 IF R=RCP AND T$<>"" THEN PRINT IN 
K G3AT XT, YTS"n"2 GO TO 2215 

2193 IF R=RSP AND T$<>"" THEN PRINT AT 
XT, YT3"o": GO TO 2215 

2194 IF R=RDP THEN PRINT INK 33AT XM,Y 
M3s"l": GO TO ga6a 

2195 IF R=RAP OR R=RCP OR R=RSP AND M$<> 
"" THEN PRINT INK INK;AT XM-1,YM;"p": 
PRINT INK INK3;AT XM; YM3"q" 

2196 IF RDP=99 THEN PRINT INK 33AT XM, 
YM3"L": GO TO 22408 
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2197 IF M$<>"" THEN PRINT INK MIC;AT X 
Ms Ym3" 1" : 

2288 IF T$<>"" THEN PRINT AT XT YT3"5" 
2218 IF GO<>@ THEN PRINT INK 63AT XG,Y 
Gi"h" 

2215 IF 1$<>"" THEN PRINT AT XD; YD;"k" 
2238 INPUT INKEY$ 

2235 IF INU=]1 THEN INUERSE 1 

2258 IF INKEY$="S" THEN GO TO 6920 

2268 IF INKEY$="P" THEN GO TO 4020 

2278 IF INKEY$="D" THEN GO TO 3000 

2288 IF INKEY$="5" THEN GO TO 2339 

2296 IF INKEY$="6" THEN GO TO 233a 

2308 IF INKEY$="2" THEN GO TO 2330 

2318 IF INKEY#="8" THEN GO TO 2330 

2316 IF INKEY$="" THEN PRINT AT X,Y3"d" 
2317 INVERSE @ 

2318 IF M$<>"" THEN GO SUB 262@ 

2328 GO TO 2180 

2330 REM *XCHARACTER MOUESK* 

2335 INUERSE @ 

234@ PRINT AT X,¥3" " 

2345 IF INU=] THEN INVERSE 1 

2358 IF INKEY$="8" THEN LET Y=Tt+1: GO S 


UB 25@@: PRINT AT X;Y3"a" 
2366 IF INKEY$="6" THEN LET X=xXt1l: GOS 


UB 2588: PRINT AT X,Y3"e" 

2378 IF INKEY$="?" THEN LET X=X-1: GOS 
UB 2580: PRINT AT X,Y3"c" 

2388 IF INKEY#="S" THEN LET Y=Y-1: GOS 
UB 2566: PRINT AT X;,;Y3"b" 

2444 REM * NEXT ROOM xX 

2456 IF DCR; 1)>@ AND X=1 AND Y=H THEN L 
ET PS=1: LET R=DCR,1): GO TO 2568 

2466 IF DCR, 23>@ AND X=U AND Y=(L-2) THE 
N LET PS=2: LET R=DC(R,2): GO TO 2568 
2478 IF DCR, 33>@ AND X=({W-2) AND Y=H THE 
N LET PS=3: LET R=DC(R;,3): GO TO 256g 
2488 IF DCR; 43>@ AND X=U AND Y=1 THEN L 
ET PS=4: LET R=D(R;4): GO TO 256@ 
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2438 GO TO 2315 

25806 REM * DEFINE WALLS xX 

2910 IF <1 THEN LET Aextl 

Za20 IF R>=CW-1) THEN LET A=e—] 

2938 JF T<1 THEN LET TeTr] 

2240 JF TS=C(L-13 THES LET TT] 

2558 RETURN 

2568 REM *xX POS IN NEXT ROOM Xx 

2565 INUERSE @ 

2578 IF PS=1 THEN LET X=C(WCRJ-2): LET Y 
=(LCR)72) 

2580 IF PS=2 THEN LET X=C(WCR)72): LET Y 
=2 

2596 JF PS=3 THEN LET X=2: LET Y=(LCRJZ 
2) 

2600 IF PS=4 THEN LET X=C(WCRIJ7“2): LET Y 
=(LURI=2] 

2618 GO TO 1888 

2626 REM *k MONSTER CHASE Xx 

26368 PRINT AT XM, YM3" " 

2633 IF R=RAP OR R=RSP OR R=RCP THEN PR 


Ae i AM-1,7M3" ": GO TO 2648 
IF INU=] THEN GO TO 2720 


— IF X<XM THEN LET XM=XM-1 

2656 IF X>XM THEN LET XM=xXN+]1 

2659 IF {<7M THEN LET Trerfi-] 

g57@ if YOTM THEN LET Frei] 

2688 IF XM<=@ THEN LET XM=XMN+]1 

269@ IF XM>=CW-1) THEN LET XM=xXM-]1 
2706 %QIF YN<] THEN LET YMN=YNtl 

efi IF Heeb) THEN LET Thi] 
2715 IF R=RAP OR R=RCP OR R=RSP THEN P 
RINT INK INKSAT XM, YM3"q"2 PRINT INK I 
NK3AT XM-1,YN3"p": GO TO 2738 

2716 IF RDP=93 THEN PRINT INK 33AT XM, 
YM3"l":2: GO TO 2736 

2726 PRINT INK MIC3AT AM, YM3"i" 

2738 IF XM=X AND YN=Y THEN GO SUB 27528 
2746 RETURN 

275@ REM xx COMBAT xx 
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2765 GO SUB 898a 

2766 IF ROP=99 AND RAP<>S9 THEN PRINT A 

T 173;135"WITHOUT THE AXE OF "=: PRINT AT 1 

8,;13"GARATH,; DALUERNA IS": PRINT AT 1931 
;"INUINCIBLE 8": PRINT AT 2@,13" YOU DIED 
IN COMBAT": GO TO 868@ 

2786 LET TH=INT CCRNDX18)+1)+CMCF-DF J 

2738 IF TH<1@ THEN PRINT AT 173,13M$3" 7 
ISSES,": GO TO 2838 

28@@ IF TH>=1@ THEN LET DAMN=INT CRNOXMNC 

Fat 

281@ PRINT AT 17;,;13MN$3;" HITS FOR ";DAN 

2826 LET HP=HP-DANM 

2838 REM XxXCOMBAT CHARACTERX* 

28498 LET TH=INT CCRNDX18)+1)+CCF-MDF 3 

2858 IF TH<1@ THEN PRINT AT 18,13"YOU NM 
ISSED,": GO TO 2898 

2860 IF TH>=1@ THEN LET DAM=INT CRNDXCF 
I+] 

2878 PRINT AT 18,13" YOU HIT FOR ";DAN 

2886 LET MHP=MHP-DAMN 

289@ IF HP<1 THEN PRINT AT 19,13" YOU AR 

— DEAD §": GO TO 8686 

2895 IF RDP=39 AND MHP<1 THEN GO TO 853 

iy) 

2900 IF MHP<1 THEN PRINT AT 1935135M$3" I 

S DEAD": LET M$="": LET MO=MO+1: PAUSE B 
> GO TO 2153 

251@ IF HP<1@ THEN PRINT AT 15,225" ” 

9326 PRINT AT 15;215HP 

2325 PAUSE 38 

29338 GO TO 2762 

3808 REM *xXDROP ITEM*xX 

3681 IF T#<>"" AND X=XT AND Y=YT THEN G 

90 TO 2238 

3063 IF DR=1 THEN GO TO 2230 

3418 GO SUB 83982 

3828 PRINT AT 17;13"WHICH ITEM DO YOU WI 

Sit 


ee era esas ge ec geT ae see ee eee 
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3838 PRINT AT 18,;13"TO DROP °?" 
3848 INPUT I$ 


3058 PRINT AT 18;,11;31$ 

3666 IF I$="DAGGER" OR I$="MACE" THEN G 
9 TO 3186 

3070 IF I$="S,SWRD" OR I$="L.SWRD" OR I$ 
="2H-SWD" OR I$="M.SWRD" THEN GO TO 318 
2) 

3080 IF I$="LEATHR" OR I$="CHAIN" OR I$= 
“PLATE” OR I$="MPLATE" THEN GO TO 3178 


3898 LET I¢="": GO TO 2153 

3108 IF CF=3 THEN LET I[$="": GO TO 2153 
3105 IF I$<>WS THEN LET I$="": GO TO 2] 
53 

311@ LET W$=" ": LET CF=@ 


31286 PRINT AT 7;253;W¢: PRINT AT 15;73CF 
3136 IF I$="S.SWRD" OR I¢$="L,SWRD" OR I$ 
="2H-SWD" OR I[$="N,SWRD" THEN LET TC=@ 
3148 IF I$="DAGGER" THEN LET TC=6@ 

315@ IF I¢$="MACE" THEN LET TC=4@ 

3168 GO TO 3218 


317@ IF DF=3 THEN LET I$="": GO TO 2153 
S175 IF I@<9AS THEN LET I#=""2 GD TO 2) 
a3 

3186 LET A$=" ": LET DF=@ 


3193@ PRINT AT 3;253;A$: PRINT AT 15;143DF 
3206 LET TC=30 

3218 RESTORE 339@+TC 

322@ FOR I=1 TO 8 

3238 READ TCI) 

324@ POKE USR "K"+CI-1),TCI) 

3250 NEXT I 

3268 LET XD=xX: LET YD=Y: LET DR=1 

327@ GO TO 2153 

4006 REM XxPICK UP TREASUREXxX 

4@1@ GO SUB 898@ 

4826 IF X=XT AND Y=YT THEN GO TO 4128 
4832 IF X=XG AND Y=YG THEN GO TO 4@6@ 
4@5@ GO TO 2153 
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4868 REM x GOLD x 

4088 LET G=G+GO 

4098 LET GO=a 

4128 PRINT AT 28,25;G 

4118 GO TO 2153 

412@ REM * TREASURE x 

4125 IF R=RAP THEN GO TO 744@ 

4127 IF R=RCP THEN GO TO 761@ 

4128 IF R=RSP THEN GO TO 7760 

413@ PRINT AT 17,13"TREASURE :-" 

4135 IF T$="" THEN PRINT AT 17;183"NONE 
": PAUSE 5@: GO TO 2153 

4136 IF T$="SPELL BOOK" THEN GO TO 4152 
4137 IF S$<>"" THEN PRINT AT 18,13S$: G 
0 TO 4158 

414@ PRINT AT 17,10;T$ 

4158 IF T$="S,SWRD" OR T$="L,SWRD" OR T$ 
="2H-SWD" OR T$="M,SWRD" THEN GO TO 421 
g 

4168 IF T$="MACE" OR T$="DAGGER" THEN G 
9 TO 4218 

4178 IF T$="LEATHR" OR T$="CHAIN" OR T$= 
"PLATE" OR T$="MPLATE” THEN GO TO 4322 
4188 IF T$="POTION" THEN GO TO 4418 
4198 IF T$="SPELL BOOK" THEN GO TO 445a 
4288 IF T$="RING" THEN GO TO 4532 

42@5 GO TO 2153 

4218 REM * WEAPONS x 

4215 IF CF=3 THEN GO TO 4300 

4228 IF WS<>" " THEN GO TO 2153 
4238 LET W$=T$ 

424@ IF WS="DAGGER" THEN LET CF=2 

4258 IF W$="MACE" THEN LET CF=3 

426@ IF W$="S,SWRD" THEN LET CF=4 

4278 IF WS="L,SWRD" THEN LET CF=6 

4288 IF W$="2H-SWD" THEN LET CF=? 

4298 IF Wé="M,SWRD" THEN LET CF=8 

4388 PRINT AT 7,25;W¢: PRINT AT 15,73CF 
4318 LET T$="" 
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4311 IF I$<>"" THEN GO SUB 7108 

4212 GO TO ZiSs 

4326 REM * ARMOUR xX 

4325 IF OFS THEN GO 70 4356 

4338 IF AS<>" * THEN GO TO 2153 
4348 LET AS=T$ 

4359 If AS="LEATHR” THEN LET DR=4 
4360 IF AS="CHAIN” THEN LET DF=5 
4370 IF AS="PLATE” THEN LET DP=7 
4360 IF At="MPLATE" THEN CET OF=8 
4398 PRINT AT 3, 223A$- PRINT AT 15;14;3DF 
446@ LET 1$="" 

4401 IF I$<>"" THEN GO SUB 7188 

4485 GO TO 2153 


441@ REM * POTION xX 
4426 IF PT=1 OR PT=2 THEN LET CR=CRtINT 
CRNDX2)+1 


443@ IF PT=3 THEN LET IU=JUtINT CRND*2) 
#1 


4444 PAUSE @ 

4445 LET T$="": GO TO 7@a0 

4446 REM xX SPELL BOOK x 

4458 PRINT AT 18,13"THE SPELL BOOK CONTA 

INS" 

4468 PRINT AT 19,13"A SPELL,"3;S$ 

4465 PAUSE @ 

4478 IF SR=1 THEN LET [U=]U+1 

4488 IF SR=2 THEN LET WE=WE+1 

4498 IF SR=3 THEN LET FB=FBt1 

4588 IF SR=4 THEN LET LB=LB+1 

4518 IF SR=5 THEN LET CR=CRt1 

4528 LET T$="": GO TO 7aa0 

4538 REM * RING x 

4548 IF RR=1 OR RR=2 THEN LET IU=]U+INT 
CRND¥2) +1 

4558 IF RR=3 THEN LET FB=FBtINT (RNDX2) 

+] 

4568 IF RR=4 THEN LET LB=LB+INT CRNDX2) 

+1 

4565 PAUSE @ 
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457@ LET T$="": GO TO 70aa 

6008 REM xx SPELL CAST xx 

6818 GO SUB 83aa 

6@2@ PRINT AT 17;13"WHICH TYPE OF SPELL 

po" 

6032 PRINT AT 18,13;"YOU WISH TO CAST ?" 

684@ INPUT C$ 

6845 PRINT AT 18,2@3;C¢ 

6846 PAUSE 58 

6847 IF RDP=99 THEN GO SUB 89@@: PRINT 

AT 17,13"SPELLS DO NOT AFFECT": PRINT AT 
18,1;"WARLOCKS 28": PAUSE @: GO TO 2153 

6@5@ IF C$="INUS" THEN GO TO 6128 

6860 IF C$="WEB" THEN GO TO 6178 

6872 IF C$="FBAL" THEN GO TO 6232 

66398 IF C$="LBLT" THEN GO TO 6720 

61@@ IF C$="CURE" THEN GO TO 6955 

6118 GO TO 2153 

612@ REM xx IJNUISIBILITY xx 

613@ IF IU<1 THEN GO TO 724@ 

615@ LET [U=[U-] 

6155 IF R=RAP OR R=RSP OR R=RCP THEN GO 
SUB 89@@: PRINT AT 17,1;"THE DEVIL CAN 

STILL SEE” .PRINT AT 16, 13"7DU8": PAUSE 

288 

6157 LET INU=1 

6168 GO TO 7aae 

6178 REM *k WEB xXx 

6175 LET WB=1 

6188 IF WE<1 THEN GO TO 7248 

6198 LET WE=WE-1 

6195 IF R=RAP OR R=RSP OR R=RCP THEN GO 
SUB 8980: PRINT AT 17,;13"THE WEB SPELL 

DOES NOT": PRINT AT 18,13"WORK BECAUSE T 

HE DEVIL": PRINT AT 19;,;13;"IS TOO STRONG, 
": PAUSE 1888: GO TO 7aaa 

62808 LET M$="" 

6285 LET MO=MOrl 

621@ PRINT AT XM, YN;"F" 

6228 GO TO 78aa 
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6238 REN xXx FIREBALL xx 

624@ IF FB<l THEN GO TO 7248 

6256 IF M$="" THEN GO TO 2153 

6268 LET FB=FB-]1 

6272 LET DAN=INT CRNDX3@)+11 

628@ LET MHP=NHP-DAM 

6298 IF MHP<1 THEN LET M$="": LET MO=MO 
#] 

6306 LET XF=X: LET YF=Y 

63148 IF XM<XF THEN LET XF=xXF-] 

63208 IF XM>XF THEN LET XF=xFt] 

6338 IF YM<YF THEN LET YF=YF-1] 

634@ IF YM>YF THEN LET YF=YFtl 

635@ INK 2: BRIGHT 1 

6364 PRINT AT XF;YF3"9" 

6376 PAUSE 4 

6388 PRINT AT XF,YF3" 

6398 INK @: BRIGHT @ 

6406 IF R=RDP AND XF=XM AND YF=YM THEN 
GO TO 8278 

6706 IF XF=XM AND YF=YM THEN INK 7: GO 
TO 70888 

6785 IF R=RDP AND XF=XM AND YF=YM THEN 
GO TO 8272 

6718 GO TO 6318 

672@ REM xXx LIGHTNING BOLT xx 

6738 IF M$="" THEN GO TO 2153 

6746 IF LB<] THEN GO TO 7246 

67586 LET XL=CY*8)+4 

676@ LET YL=17?2-(8xx) 

677@ PLOT XL;,YL 

67808 LET XF=(YNX8)+4 

67968 LET YF=172-C8xXxXMN) 

6806 LET DX=XF-XL 

6810 LET D=TF-TL 

6826 INK 5 

6838 DRAW Dx,DY 

684@ PAUSE 18 

6858 INK @ 

6868 PLOT XL, YL 
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6878 DRAW Dx, DY 

6838 PAUSE 14 

6968 INK ? 

6918 LET LB=LB-1 

692@ LET DAMN=INT CRNDX2@)+11 

6946 LET MHP=MNHP-DAN 

63945 IF MHP<] THEN LET M$="": LET MO=MO 
*] 

6358 GO TO 78a 

6355 REM Xk CURE xx 

6966 IF CR<1 THEN GO TO 724@ 

6965 LET CR=CR-1 

697@ LET RCR=INT CRNDX1@)+11 

6375 LET HP=HP+RCR 

6988 IF HP>S@ THEN LET HP=5@ 

6985 PRINT AT 15,21 3HP 

7006 REM X UPDATE xX 

7818 IF IN3S THEN LET IV=9 

7020 IF WE>S THEN LET WE=3 

#636 IF FB>S THEN LET FB=3 

7@4¢@ IF LB>S THEN LET LB=9 

7@5@ IF CR>S THEN LET CR=93 

7668 PRINT AT 11;3@31U: PRINT AT 12,303W 
E 

7876 PRINT AT 13;,;3@3CR: PRINT AT 14;3@3L 
B 

7086 PRINT AT 15,30;FB 

7036 GO TO 2153 

7166 REM X CHANGE ITEM TO TREASURE X 
7118 LET T$=I¢ 

712@ LET XT=XD: LET YT=YD 

713@ RESTORE 339@+TC 

714@ FOR I=1 TO 8 

7138 READ TCI3 

7166 POKE USR "J"+CI-1);,TCI) 


7178 NEXT I 
7168 LET I$="": LET XD=@: LET YD=@: RETU 
RN 


| 7198 REM * STUCK IN WEB X 


Ne ——————EEEEEEE—e—EEES ESE 


7208 
7218 
UR" 

7228 
ne” 

2225 
7238 
7248 
7256 
7268 
HAT " 
7276 
7288 
7298 
7358 
7368 
7362 
7363 
7378 
7388 
7382 
7364 
P35 
7398 
7408 
7418 
742 
7438 
7448 
2458 
XE" 

72468 
7478 


2488 
2438 
7520 
7518 
PON" 
2226 
HE" 
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GO SUB 83986 
PRINT AT 173,13" YOU ARE CAUGHT IN YO 


PRINT AT 18,13"OWN WEB. YOU ARE DEA 


PAUSE @ 

GO TO 8680 

REM x NO SPELL REPORT xX 

GO SUB 8980 

PRINT AT 17,13" YOU DO NOT POSSESS T 


PRINT AT 18,13"SPELL." 

PAUSE 52 

GG TO 21538 

REM xx QUEST xx 

IF R=RAP THEN LET T$="AXE" 

IF R=RCP THEN LET T$="CROWN" 

IF R=RSP THEN LET T$="SHIELD" 
LET M$="DEVIL" 

LET MHP=6@: LET MCF=8: LET MDF=8 
IF R=RAP THEN LET INK=2 

IP ReREP THEN LET INk=3 

IF R=RSP THEN LET INK=4 

LET XT=WCRI)72 

LET TLR I42 

LET She=AT~1 

Ler THe T=L 

GO TO 17393 

REM X AXE X 

PRINT AT 173;13" YOU HAVE FOUND THE A 


PRINT AT 18,;13"0F THE GREAT HERO; " 
PRINT AT 19,13" GARATH WHO DEFEATED 


PRINT AT 2@,13"DALUERNA IN COMBAT. ” 
PAUSE @ 

GO SUB 83944 

PRINT AT 173;13"WITH THIS MIGHTY WEA 


PRINT AT 18;,;1;"YOU CAN NOW ATTACK T 
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7538 PRINT AT 19,13"EUIL WARLOCK, DALUER 
NA." 
7548 PAUSE @ 
756@ LET CF=9: LET W$=" AXE " 

7578 PRINT AT 7,253W$: PRINT AT 15,73CF 
7598 LET T$="": LET RAP=39 
7595 LET M$=""2 PRINT AT XM,YM;" "2 PRIN 
T AT XM-1,7M3" " 

7666 GO TO 2153 
7618 REM XxX CROWN xx 

7615 GO SUB 89a 

7628 PRINT AT 17; 3"YOU HAVE FOUND THE" 
7638 PRINT AT 18;13"CROWN OF THE ARCH-MA 
GE" 

764@ PRINT AT 19;13"YAGA WHO RESISTED TH 
eo 

7658 PRINT AT 2@,13"WILL OF DALUERNA. " 
7668 PAUSE @ 

7678 GO SUB 8920 

7688 PRINT AT 17;13"WITH THE CROWN, YOU W 
TLL" 

7692 PRINT AT 18,13" BE ABLE TO WITHSTAN 
a 

7788 PRINT AT 19,13" THE WILL OF DALUERNA 
7718 PAUSE @ 

7728 LET T$="" 

7738 LET M$="": PRINT AT XM, YM3" "2 PRIN 
T AT XM-1,7M5" " 

7748 LET RCP=93 

738 GO TO 2153 

7762 REM ** SHIELD Xx 

7778 GO SUB 83928 

2788 PRINT AT 17,13" YOU HAVE FOUND THE" 
77938 PRINT AT 18,13"SHIELD OF KELRIN, TH 
a 


7828 PRINT AT 19,13;"GREAT KNIGHT WHO FOR 
| GED" 
| 7818 PRINT AT 2@,13;"A SHIELD TO DEFLECT 
| THE" 


7320 
7338 
7340 
WITH" 
7858 
se 

7866 
7372 
7888 
7898 
73086 
T AT 
7310 
7328 
8218 
BB2B 
3632 
B8B40 
BG58 
3872 
3875 
3888 
ND" 

8090 
9" 

8188 


3118 


8128 
8138 
8140 
AN" 

8158 
8168 
8178 
Se" 

8188 
81398 
8288 
ial ie 
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PAUSE @ 
GO SUB 83988 
PRINT AT 17;13"SPELLS OF DALVERNA, 


PRINT AT 18;13"THE SHIELD HIS SPELL 


PRINT AT 19,13"ARE USELESS, " 
PAUSE @ 


LET T¢="" 

LET DF=9: PRINT AT 15,1430F 

LET M¢="": PRINT AT XM,YM3" “=: PRIN 
xM—1. Ys" 

LET RSP=39 

GO TO 2153 

LET M¢="DALUERNA” 


LET MHP=4@: LET MCF=9: LET MDF=0 
LET XM=6 


LET nel? 


GO TO 1733 
GO SUB 89828 


PRINT AT X,Y3"d" 
PRINT AT 17;13"AT LASTS YOU HAVE FOU 


PRINT AT 18,13" THE EYIL WARLOCK WH 
PRINT AT 13;13"BROUGHT YOU TO THIS 
PRINT AT 2@,13;"HELL HOLE, DALUVERNA® 
PAUSE @ 

GO SUB 8968 


PRINT AT 17;13"HE GREETS YOU WITH 


PRINT AT 18,13;"EUIL SMILE AND SATS" 
PRINT AT 193,13"’CONGRATULATIONS?£ ON 


PRINT AT 28,13" YOUR ARRIVAL BUT ALA 
PAUSE @ 


GO SUB 8984 
PRINT AT 17;13"IT WAS ALL IN VAIN®? 
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8218 PRINT AT 18,13"THAT MOMENT, A FIREBA 

LL" 

B22@ PRINT AT 19;,13"APPEARS AND HURTLES 

823@ PRINT AT 2@,13;"TOWARDS YOU." 

324@ PAUSE B 

8258 LET _YM=YN-15: LET Y=Yr15 

3262 GO TO 6322 

g278 LET YM=17: LET Y=2 

g275 INK 7: GO SUB 89a@ 

3280 IF RSP=99 THEN GO TO 8332 

g298 PRINT AT 17;13;"AS YOU WERE NOT " 

382 PRINT AT 18,13;"PROTECTED BY THE SHI 

ELD" 

8318 PRINT AT 19,13"0F KELRIN, YOU HAVE B 

EEN" 

8328 PRINT AT 28,13"BURNT ALIUE.": GO TO 
8628 

8332 PRINT AT X,Y3"d"2 PRINT AT 17;,13"Y 

OU RAISE THE SHIELD OF" 

B34@ PRINT AT 18,13"KELRIN AND THE FIRE 

BALL” 

8358 PRINT AT 19,13;"IS DEFLECTED AWAY." 

3378 PAUSE @ 

8375 GO SUB 8922 

e382 PRINT AT 17,1;"YOU SUDDENLY FEEL A 


8396 PRINT AT 18;13"PRESENCE TRYING TO" 
8468 PRINT AT 13,;13"CONTROL YOUR MIND. " 
842@ PAUSE @ 

8438 GO SUB 8398 

8435 IF RCP=33 THEN GO TO 8482 

8440 PRINT AT 17;13"DALVERNA SUCCESSFULL 
a 

8456 PRINT AT 18,;13;"CONTROLS YOUR WILL A 
Np" 


8466 PRINT AT 19,13" YOU JOIN THE GUARDIA 
NS" 


8470 PRINT AT 2@,13"OF THE LABYRINTH. ": 
GO TO 86828 

8486 PRINT AT 17,13"USING THE POWER OF “ 
8498 PRINT AT 18,;13"YAGA’?S CROWN; YOU RES 
Sq” 


8580 


8518 
gs1s 
3528 
8538 
8548 
8558 
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PRINT AT 19,13" THE WILL OF DALUERNA 


PAUSE @ 
LE] RDP=39 
GO TO 2153 


REM xx END OF QUEST xXx 
CLS 
PRINT FLASH 13; INK 23; PAPER 23AT 5 


>63;"CONGRATULATIONS 8” 


8568 


PRINT AT 7,13" YOU HAVE COMPLETED YO 


UR QUEST," 


e578 
8582 


LET SC=M0+G+5S0a 
PRINT AT 93;33"YOUR SCORE IS "“3SC3" 


POINTS" 


8598 
8688 
86085 
8618 
8628 
8638 
NTS" 
8640 
GAIN 
8656 
8664 
8672 
89288 
8314 
89208 


83938 
BI4B 
B95e 
B968 
3880 
3818 


3611 
3812 


STOP 

REM *xX DEAD xx 

PAUSE @ 

CLS 

LET SC=G+MO 

PRINT AT 5,6;"YOU SCORED "3SC;" POI 


PRINT AT 18,2;"BO YOU WISH TO TRY A 
51 
INPUT @$ 
IF Q$="Y" THEN GO TO 78 
STOP 
REM * CLEAR TEXT AREA X 
INVERSE @ 
PRINT AT 173135" 


PRINT AT 18313" 
PRINT AT 13313" 
PRINT AT 263,13" 
RETURN 

REM xx DATA Xx 
REM xx U.D.G’S xx 


REM *x QUEST xx 
DATA 153,153, 126,68, 24,24, 28, 38 
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9813 DATA @,6, 248,96; 255, 96,64;,¢8 

3814 DATA @,178,84,124,0,0,0,@ 

3815 DATA 127,65; 73,93;42;34;28;8 

3016 DATA 139,115,118, 46, 126, 258, 254, 114 
3417 DATA 126,118,58,58, 115,226, 224,127 
93818 DATA 255, 149; 251, 141,243,175, 289, 25 
5 

3828 REM xx CHARACTER xXx 

3038 DATA 12,12,128,94,24,28,116,7¢ 

3848 DATA 48,48, 38, 122,24,56, 46,98 

3856 DATA 88,88, 126, 26, 26,64, 36; 182 

3866 DATA 24,24,;,6@,98,98,60,; 36, 182 

3876 DATA 26,26, 126,88,88, 60, 36, 182 

3888 REM xXx SPELL xx 

3896 DATA 149; 82,173,58,93, 188; 74,145 
3186 DATA @,8,24,686,68,24,8,0 

311@ REM xxX GOLD xXx 

3128 DATA @,8,80,0,8,56,102,221 

313@ REM XxX MONSTERS Xx 

314@ DATA "BEHOLDER", 35, 2,6,680,66, 153,18 
3,153,129, 66;68 

3156 DATA "CENTAUR", 27,5,4,192,192,64, 18 
2,127,127; 34,68 

316@ DATA "AXEBEAK", 16,3,6;64, 224,32, 96; 
12451225173 32 

3178 DATA "COUATL",17;5;4; 24, 38; 78; 32, 38 
>1,98;28 

318@ DATA “DEMNON",55;7;8,153,219,165,153 
1855219; 153, 183 

31938 DATA "DJINNI",45;6;6,12,12,51, 33, 34 
>76;112;1392 

3286 DATA "ETTIN",;29;4;6; 162, 142,24, 255, 
189,68, 36,102 

3218 DATA "MINOTAUR"; 25, 3,5, 36, 24,908,165 
»153, 24, 36,66 

3228 DATA "GHOST",23,5,6, 24, 36, 36,66; 66, 
M295 1255 123 

9238 DATA "GOLEM", 35,4,6,68,60,219,189, 1 
B35) 1894365 195 
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3248 DATA "HARPY",;16;4,;,2,68, 90, 24,68; 68; 
68,24; 24 

$258 DATA "GOBLIN"; 7;2,1,8,;56,16,188,186 
> 145,56, 188 

39268 DATA "ROPER"; 4@;,2,7,145; 186; 188,57, 
125; 186,56; 124 

3288 DATA "“SHAMBLING MD", 26,3,5; 24,52, 94 
>118, 237,187; 237,187 

9298 DATA "GIANT BAT", 14,4; 3; 36; 24,98, 25 
5,255,126, 36,8 

3368 DATA "BLK PUDDING",5@,1,3,0,8,24,12 
By L275 2953 25955,295 

9316 DATA "WILL ’O? WISP",15,8,4,96, 240; 
24@,1802,15,15,6,8 

3328 DATA "VAMPIRE", 46,4; 7; 24; 24,60,68,6 
8,60,60,60 

3338 DATA "AGLOID", 34,1;,4,24,6@,255, 219; 
68,182, 182,231 

3348 DATA "GAMBODO", 16,3,1;24, 24,252,155 
»24;48;96,;, 192 

3358 DATA "GRELL",27,1,7;6@, 90, 102,60; 74 
2145; 145; 74 

93368 DATA "BULLEWUG",6,1,1,152,153, 194, 1 
88,152,164,36,66;5 

93378 DATA "WYVERN", 45;4,7;35; 198,46; 28, 1 
2;8;4;3 

33828 REM *xk TREASURE xx 

933398 DATA @;,4,64,;,255,64,0,0,8 

3488 DATA 8,8,8,28,62,62,28,@ 

3414 DATA 8,20,8,0,8,0,8,0 

3428 DATA 24;,24,86,153, 153,129, 36,36 
3438 DATA @,4,0,64,252,64,0,8 

3448 DATA @,8,248, 168,248, 168, 168, 248 
3458 DATA @;64,; 246,64,98,0,0,8 

9468 DATA @,4,8,0,8,56, 182,22) 

395@@ REM xx DUNGEON xx 

9581 DATA 18,18,2,8,0;8 


9582 DATA 18,18,4,3;,1;@0 
9583 DATA 18,18,8,8,0,2 


9584 DATA 28,8,7;,;5;2,0 
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3585 DATA 14,18,6,59,8,4 
3586 DATA 8,8,8,98,5,8 


3567? DATA 28,12,0,8,4,8 


39548 DATA 28,12;8,7,9,2 
3543 DATA 6,12;8,;8,18,8 
3518 DATA 18,12,9,11,8,2 
9511 DATA 8,18,8,8,12,1a8 
9512 DATA 28,8,11,8,13,@ 
9513 DATA 8,12;12,8,8,14 
9514 DATA 18,12,15,;13,8,8 
39515 DATA 18219;16;8,14,8 


3516 DATA 14,18,17,8,15,@ 
3517 DATA 12;12,@,19,16,18 
3518 DATA 18,6,8,17,8,@ 
3513 DATA 12,6,28,8,8,17 
3528 DATA 18,6;,21,8,19,0 
3521 DATA 18,12,22,8,28,@8 
woz2 DATA 2@.12,8, 23; 21,25 
3523 DATA 12,;8,24,8,8,22 
3524 DATA 18,12,8,8,23,@ 
93525 DATA 28,8, 26,22,8,27 
3526 DATA 6,12,8,8,25,0 
3527 DATA 18,12,8,25,8,28 
3528 DATA 28,12, 38, 27; 34,29 
9523 DATA 16;8,8,28,8,@ 
3538 DATA 28;,18,31,0,28,0 
3531 DATA 12,6,0,32,38,8 
9532 DATA 12,12;33,0,8,;31 
3333 DATA 6, 12,0;0,32,8 
3534 DATA 14,8, 28,35,8,9 
45335 DATA 14,8,08,37, 36; 34 
3536 DATA 28,18,35,0,8,8 
9537 DATA 18,18,;8,8,8,35 
3538 DATA 6;12,39,8,8,@ 
35339 DATA 12,12,8,48,38,@ 
354@ DATA 28,6,0,41,08,393 
3541 DATA 28,6,8,42,8,40 
3942 DATA 20;12,0,47,493,41 
9543 DATA 6,12,42,0,44,@ 
3544 DATA 18,6, 43,46,8,45 


Ne ———————EEEE——EEEwaE 
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3545 DATA 6,6;8,44;,40,@8 
3546 DATA 18,56,47,48;,0; 44 
93547 DATA 16;6;8,9,46;42 
3548 DATA 2@,6,8,49,8,;,46 
9543 DATA 20,12,58,51,53;48 
3556 DATA 6;12,8,8,49,@ 
3551 DATA 26,;3,0,52,0;,49 
9552 DATA 18,8,0,8,8@,51 
3553 DATA 6,12,49,98,54;,0 
9555 pATA 18,12,54,57,56,0 
9556 PATA 6,12,55,8,58,¢ 
3557 DATA 16,18,8,80,6,55 
9558 DATA 26,12,56;,78,6,59 
935593 DATA 28,12,0,58,66;5 
3566 DATA 16,18,59,61,86,8 
93561 DATA 28,3,6,77,62,60 
9562 DATA 18,12,61,6,78,63 
3563 DATA 28,8:,4;62,0,64 
3564 DATA 16,12,66,63,65,0 
3565 DATA 18,6,64,0,0,@ 
3566 DATA 18,18,80,0,64,67 
3567 DATA 26,8,6,66,0;,68 
3568 DATA 18,12,0,67,69,@ 
3563 DATA 28,12,68,0,80,@ 
9578 DATA 18,18,62,71,8,0 
3571 DATA 28,6,;0,72,8,70 
3572 DATA 16,8:9;7334;71 
9573 DATA 1828;74;8;,8,72 
9574 DATA 20,12,80,6,73,75 
9575 DATA 16;,186,76,74,8,@ 
3576 DATA 8,12,79,0,75;77 
9577 DATA 26;,12;78;76;6;,61 
93578 DATA 16,12,;8,8,;77,58 
3579 DATA 8,12,88,0,76;@ 
3588 DATA 18,12,81,82,79,@0 
93581] DATA 16,6,0,08,308,0 
3582 DATA 264,8,4,;, 83,8, 80 
9583 DATA 20,8,84,8,6,82 
3584 DATA 28,6,85,0,83,6 
3585 DATA 28,18,87,86;,84;,8 
3586 DATA 6;,6,;8;,;8,80,85 
3587 DATA 2@,18,90,0,85, 88 
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3588 DATA 28,8,6,87,8,89 
3583 DATA 6;12;8;88,0,8 
3536 DATA 18;,12;91,93,;, 87,8 
3531 DATA 16,;16,8,0,98,92 
3532 DATA 26,12;0;,;91;,8;8 
3533 DATA 26,12,0,8,0,98 


7 
Nightmare Park 


Scenario 


So you think you’re pretty good at solving adventures after 
playing all of the other games in this book? Well, if that’s the case 


then try this one for size. 
In your wanderings around some deep dark cavern, you 


stumble across a sign 


THIS IS NIGHTMARE PARK 


ENTER AT YOUR OWN RISK 


KEEP TO THE PATH 
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Well, being an adventurer of the highest calibre, this is a 
challenge not to be refused. So put your best foot forward and 
step into Nightmare Park. 


Hints on Entry 


The entering of Nightmare Park is very straightforward and the 
only difficulty may come in the lines regarding the Carnivorous 
Caterpillar (lines 1225-1235), and these should be entered very 
carefully making sure that the numbers relating to the CHR 
function are correct. 


Techniques 


In this program the random function is often used to produce the 
different probabilities within the various sections. 

As you will no doubt be aware from reading the Spectrum 
manual, the Sinclair BASIC RND function produces a number in 
the range 0-1. In many cases this is quite satisfactory, but on 
occasions we may wish to generate an integer number within a 
specified range, to assimilate the throwing of a die. If this is the 
case then the number must first be increased by using some scale 
factor and then turned into a whole number using the INT 
function. 


Example 
To generate a number in the range 1-6 we would require 


PRINT INT(RNDs6)+1 


Playing Instructions 


The basic idea of the game is to get to the other side of Nightmare 
Park without being squashed, concussed or burnt to a cinder. But 
believe me, this is no easy task. 


Nightmare Park = 183 
Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) SPACES WITHIN THE TEXT SHOULD BE ENTERED AS LISTED. 
3) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


5 INK @: PAPER 7: BORDER 7: BRIGHT @: 
CLS 
7? PAPER 7: BORDER 7: INK @: PRINT AT 
9,@;"THE SIGN READS -" 
8 PRINT = PRINT CHR# 1393: FOR G=1 TO 
3@: PRINT CHR$ 1313: NEXT G: PRINT CHR$ 
135 


3 PRINT CHR¢ 1383" THIS IS NIGHTMAR 
E PARK “3CHR¢$ 133;CHR$ 13835" 
“SCHR 1333CHR$ 13 
B53" ENTER AT YOUR OWN RISK "3CHRE 
1333;CHR¢ 1383" 
“j;CHRE 133j;CHRE$ 1383" "3 INUERS 


E 13;"KEEP TO THE PATH8"; INVERSE 93" 
"SCHR$ 13335CHR$ 1423: FOR G=] TO 3a: 

PRINT CHR$ 14@3: NEXT G: PRINT CHR$ 141 

1@ FOR I=1 TO 300: NEXT I: FOR J=8 TO 
23: READ A: POKE USR "M"+I,A: NEXT I: DA 
TA BIN @1081118,BIN 11111181,BIN 1111111 
1,;BIN @1111111,B8IN 90@1111190,;BIN 81111118 
»>BIN @081111808,BIN 81100100,BIN 88001022, 
BIN @8@068108,BIN 8988@00010,BIN 11111111,;B 
IN @680000198,BIN 800800108,BIN 8080019008,BI 
N 88080802 

11 DATA BIN @@1118@@8,BIN 8@01118080,BIN 
468010000,BIN 11111118,BIN @8810008,BIN @ 
G1618@60,BIN 86101808,BIN 80101800 

15 LET X=1: LET Y=1@ 

38 PRINT AT 8,83" mmmmmmmmmmmmmmmmmmmmm 
mmmmmmmmmmm" 
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31 PRINT 


mmmm" > PRINT 


mmmmmm" 

32 PRINT 
mmmm "' 

33 PRINT 
mmmm"' 

34 PRINT 
mmmm" 

35 PRINT 
mmmm " 

36 PRINT 
mmmm" 

37 PRINT 
mmmm " 

38 PRINT 
mmmm "' 

33 PRINT 


iW 


ny 
4@ PRINT 
mmmm"' 
41 PRINT 
mmmm " 
42 PRINT 
mmmm" 
43 PRINT 
mmmm" 
44 PRINT 
mmmm" 
45 PRINT 
mmmm "' 
46 PRINT 
mmmm" 
47 PRINT 
mmmm 
48 PRINT 
mmmm" 
43 PRINT 
mmmm" 


“mmmmmmmmmmmmmmmmmm 


mmm mmmmmmm 


mmm mmmmmmm 


mmm mmmmmmm 


mmm mmmmmmm 


mmm mmmmmmm 


“mmmmmm mmmmmmm 


“mmmmmm mmmmmmm 


“mmmmmm 


1 


“mmmmmm 


“rmmmmmmmmmmmmm 


1 


‘mammmmm mmmmmmm 


mmmmmm 


mmmmmm 


mmmmmm 


mmmmmm 


mmmmmm 


‘mmmmmm mmmmmmm 


mmmmmm 


mmmmmm 


mmmmmm 


mmmmmm 


mmmmm 


mmmmm 


mmmmm 


mmmmm 


mmmmm 


mmmmm 


mmm 


“TmMmMmMmMmMmmmmmmmmmmmm mmmmm m 


mmm 


mmm 


mmm 


mmm 


mmm 


mmm 


mmm 


mmmmm 


mmmmm 


mmmmmm 


‘mmmmmmmmmmmmmm 


mmmmmm 


mmmmm 


mmmmm 


mmmmm 


mmmmmm 


mmmmmm 


‘AMMMMmMmMMmMmmmmmmmmmmmmmmmmmm 


“AMMMmMMmMmMmmmmmmmmmmmmmmmmmmmm 
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7@ PRINT AT Y3;X%3"0" 
8@ LET Q$=INKEYT$ 
81 IF Q$="" THEN GO TO 8@ 
82 IF Q$<>"S5" AND Q$<>"6" AND QF$O"?" 
AND Q@¢$<>"8" THEN GO TO 8@ 
85 IF Q$<>"5" THEN GO TO 38 
$6 IF SCREENS (T,;4-1J0>" " THEN GO JO 
3828 
8? PRINT AT Y;X%3" " 
Bo LET AHA 
83 PRINT AT Y;X;"o": GO TO 1800 
30 IF Q¢$<>"6" THEN GO TO 35 
31 IF SCREEN$ CY+1,;X)<>" " THEN GO TO 
3828 
32 PRINT AT Y3A3" " 
33: Ley VeTt4 
34 PRINT AT Y;X%3"0": GO TO 1880 
S35 IF Q@$<>"?" THEN GO TO 188 
S36 IF SCREEN (CY-1;,;X%)<>" " THEN GO TO 
3882 
3S? PRINT AT Y3X%3" “ 
38 LET Y=r=L 
33 PRINT AT Y;xX%3"o0": GO TO 1888 
146 IF Q$<>"8" THEN GO TO 8@ 
1@1 IF X+1=31 AND Y=1@ THEN GO TO 9988 
1@2 IF SCREENS CY,X+1)<>" “ THEN GO TO 
38288 
1@3 PRINT AT Y;X%3" " 
104 LET X=xX+t1 
1@5 PRINT AT Y;X%3"o0": GO TO 1888 
1008 LET 2=CINT CRNDX1@@)-8@): IF 2<@ TH 
EN GO TO 1888 
1914 IF X=3@ AND Y=1@ THEN PAPER @: INK 
7: BORDER @: CLS : BRIGHT 1: IF RND>.38 
THEN GO TO 1820 
1911 IF X<>3@ OR Y<>1@ THEN GO TO 1858 
1@12 PRINT AT @,@; FLASH 13;"HA HA HA HA 
HA HA HA HA HA HA HAHA HA HA HA HA HA HA 
HA HA HA HA"; FLASH @3AT 4;83;" YOU HAVE 
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FALLEN DOWN A DEEP; DARK; HORRIBLE ;DI 
SGUST INGLY DECORATED PIT FULL OF NAS 
TY CREATURES THAT ARE USUALLY FOUNDI 
N THE SEWER. ": GO TO 9828 
182@ PRINT AT 16,;@;"IMPOSSIBLE 222 YOU NM 
ABE I7T Begg 
WHAT ARE YOU WAITING FOR ?????? A FA 
NFARE ??? PLAY IT AGAIN SAM": FOR J=1 T 
0 266: NEXT I: RUN 
1@5@ IF 2>=2 THEN GO TO 1288 
1@51 LET P#="": BORDER 1: PAPER 1: INK 7? 
: GLS 
1@52 PRINT AT 2,@;"YOU HAVE STUMBLED UPO 
N THE MAD MATHEMATION. HE CALLS HIMSELF 
"3 INVERSE 13"RICHARD"; INUERSE @;" 28 
2 HE SAYS WORK OUT THE SUM FAST 299" 
1853 LET N1=INT CRND*18) 
1@54 LET N2=INT CRNDX1@) 
1@55 LET N3=INT CRNDX1@) 
1@56 LET N4=INT CRND*198) 
1458 LET M$=STR# Nit" + "“+STRE N2t" -— "+ 
STR$ N3t" X "+STR# N4 
1853 PRINT AT 7;83M$¢ 
1860 LET ANS=CCCONI+N2)-N3)XN4)) 
1861 LET J=320 
1062 FOR I=1 TO 38 
1@65 LET A$=INKEY$: FOR G=1] TO 15: NEXT 
G: LET J=J-1: IF J=@ THEN GO TO 1138 
1866 IF A¢$="" THEN GO TO 18065 
1867 IF CODE A$=13 THEN GO TO 1188 
18068 IF CODE A$>S7? OR CODE A¥<48 THEN G 
0 TO 1665 
1876 LET P#=P$+As 
188@ PRINT AT 18,@8;P$ 


1@85 NEXT I 

11@@ IF LEN P#$=@ THEN GO TO 1865 

1165 IF P$C TO 1)=".," THEN LET P$="@"+P 
$ 


1188 IF ANS=UAL P$ THEN GO TO 1128 


aS oi PS SO gr Tee See ee ee 
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111@ CLS : PRINT AT 3,@; FLASH 13"HA HA 

HA HA HA HA HA HA HA HA HA”; FLASH @ 

1115 PRINT AT 6;,;@3;"WRONG 282 THE ANSWER 

WAS "SANS 

1116 PRINT AT 93;@; FLASH 13"HA HA HA HA 

HA HA HA HA HA HA HA"; FLASH @ 

1117 GO TO 9382@ 

1126 CLS : PRINT AT 3,;@3; INVERSE 13"DRAT 

DRAT DRAT DRAT DRAT DRAT"3 INUERSE @ 

1121 PRINT AT 18,@3;"YOU GOT IT RIGHT.... 

YOU WON’? T NEXT TIME. 

1125 FOR I=1 TO 2@@: NEXT I: BORDER 7: P 

APER 7: INK @: CLS : GO TO 38 

1138 CLS : FOR J=@ TO 18: PRINT AT 1,50; 

FLASH 13"HA HA HA HA HA HA HA HA HA HA H 

A"; FLASH @: NEXT I 

1135 PRINT AT 93,;@;"OUT OF TIME.. I?M NOT 
TELLING YOU THE ANSWER THOUGH 

1136 PRINT AT 11,83 FLASH 13"HA HA HA HA 

HA HA HA HA HA HA HA"; FLASH @: GO TO 9 

828 

1206 IF 2>4 THEN GO TO 1386 

1201 CLS * PRINT “THE ENIGMATIC ETYMOLOG 

IST SAYS BEHIND TWO DOORS ARE CARNIVORO 

USCATERPILLARS. CHOOSE YOUR PATH.” 


12@2 FOR I1=6 TO 16: PRINT AT 1,03" "3: F 
OR G=1] TO 7: PRINT CHR$ 1433: NEXT G: PR 
in “3: FOR G=1 TO 7: PRINT CHR¢# 143 
3? NEXT G: PRINT " "3: FOR G=1 TO 7: P 
RINT CHR# 1433: NEXT G: NEAT I 
1263 PRINT AT 5503" 1 Z 

3" 


1204 LET S=INT CRNDX*3)+1 

12805 LET A$=INKEY$: IF AS="" OR CODE AS< 
43 OR CODE A$>S51 THEN GO TO 12@5 

1266 IF S<>UAL AS THEN GO TO 1228 
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1207 IF S=1 THEN FOR I=16 TO 6 STEP -1: 
PRINT AT Isd3" ": FOR J=1 TO 18: 

NEXT J? NEXT I: GO TO 1248 

1208 IF S=2 THEN FOR I=16 TO 6 STEP -1: 
PRINT AT 13113" ": FOR J=1 TO 18: 
NEAT 2% NEAT I? GO TO 1248 

12093 IF S=3 THEN FOR I=16 710 6 STEP —1+ 
PRINT AT I3;213" "2 FOR J=1 JO 18: 
NEXT J: NEXT I: GO TO 1248 

1226 IF VAL A$=1 THEN LET Q=] 

1221 IF UAL A$=2 THEN LET Q=11 

1222 IF UAL AS=3 THEN LET Q=21 


1225 PRINT AT 16;,Q3" “3 FOR J=1 TO 
10: NEXT J 

1226 PRINT AT 15,Q3" "2 POR J=i1. 70 
18: NEXT J 

1227 PRINT AT 145,03" *? FOR J=1 TO 
1@: NEXT J 

1228 PRINT AT 13,;Q3" “3CHR# 133;CHR$ 13 

63" "2 FOR J=1 TO 1@: NEXT J 

1223 PRINT AT 12,03" °"3;CHRS 1323;CHRE 14 
ICHRS 1435;CHRS 14335" “: FOR J=1 TO 14: 

NEXT J 

1238 PRINT AT 11;,Q3" *3CHRS 19433" "2 
FOR J=1 TO 1@: NEXT J 

1231 PRINT AT 18,;Q3;" “3;CHR$ 143;CHRS 14 

3;CHR# 143;CHR$ 1433" “: FOR J=1 JO 18: 

NEXT J 

1232 PRINT AT 3,;Q3;" "3CHR$ 142;CHRE 148 
SCHR 14@;CHR¢# 1403;" ": FOR J=1 TO 18: N 

BAT J 

1233 PRINT AT 8,Q3" “SCHRS J3SS3CHRE 131 
7CHRS 1363” "2? FOR J=1 TO 18: NEXT J 
1234 PRINT AT 7;Q35" *“3CHRE 129;CHRS 139; 

CHR 1395CHRS 1393” "> FOR J=1 TO 16: N 

EXT J 

1235 PRINT AT 6,Q3;" "“3CHR$ 1335CHRS 138; 
"“SCHRS 13855" "2 FOR J=1 TO 10: NEXT J 


1236 FOR I=1 TO 250: NEXT I: BORDER @: P 
APER @: INK 7: CLS 
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1237? PRINT AT @,@3; FLASH 13;"HA HA HA HA 
HA HA HA HA HA HA HA"; FLASH @: PRINT AT 
3,@;"WHAT’S IT LIKE BEING A DINNER FO 
R A CATERPILLAR 82829288 "2 PRINT A 
T 9,@; FLASH 13;"HA HA HA HA HA HA HA HA 
HA HA HA"; FLASH 8: GO TO 93828 
124@ PRINT AT 19,983"HOW LUCKY CAN YOU GE 
y goegeoe 1?M BEING TOO KIND22099 
FOR J=1 TO 25@: NEXT I: CLS : GO 
TO 38 
1308 IF 2>6 THEN GO TO 1488 
1381 BORDER 4: PAPER 4: INK @: CLS 
1382 PRINT “THE PHANTOM FLASHER STRIKES 
saaetS NAME WILL “} FLASH 1j°FLASHs PL 
ASH @;" BEFORE YOU," 
1384 RESTORE 1385 
13285; DATA “FRED”, “JGHN", "STEVE". "BOB" "RK 
OBERT"; "STEPHEN"; "JAMES"; "WILLIAM"; "RICH 
ARD"; "PATRICK", "STEWART"; "FRANCIS", "JOE" 
>" ADAM", "PAUL", "BRIAN", "SEAN", "MARTIN'; ” 
DAVID", "DARREN"; "STANLEY"; "EDWARD", "CHAR 
LES”, “PHILIP's “SIMON s “NIGEL” s "ENGELBERT 
"; "BARRY" 
1386 LET A=INT CRNDX28)+1 
1387? FOR I=1 TO A: READ AS: NEXT I 
1388 FOR I=1 TO INT CRNDX26@)+1: LET D=R 
ND: LET G=RND: PRINT AT INT (€DX19)+2, INT 
1@+INT (CGk2@)-LEN A$5AS$ 
1363 FOR [=] TO 3: NEXT I 
131@ INK 4: PRINT AT INT CDX19)+2, INT 18 
+INT (Gk2@)-LEN AS$j3AS$ 
1311 INK @ 
1312 INPUT “NAME ? "3; LINE C$ 
1313 IF C$=A¢ THEN PRINT AT 18,03 FLASH 
13 "HAAN! 3 oF 
LASH @3AT 12,@;"YOU SEEM TO HAVE GOT IT 
RIGHT...WORSE LUCK NEXT TINE @eeeseors fF 
OR I]=1 TO 250: NEXT I: PAPER 7: INK @: B 
ORDER 7: CLS : GO TO 3a 
1314 BORDER @: PAPER @: INK 7: CLS : FOR 


189 
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I=1 TO 4: PRINT AT 1,83; FLASH 13"YA BOO 
SUX YA BOO SUX YA BOO SUX"; FLASH @: NE 
XT I 
1315 PRINT : PRINT "“WRONG,WRONG WRONG, I 
TWAS .....;, "SAS 
1316 PRINT : PRINT FLASH 13;"YA BOO SUX 
YA BOO SUX YA BOO SUX": GO TO 3828 
1498 IF 2>8 THEN GO TO 15aa 
1481 BORDER 7: BRIGHT @: PAPER 7: INK @: 
CLs 
14@2 PAPER S: FOR I=1 TO 15@: PRINT AT I 
NT CRNDX18)+3, INT CRNDX32)3"m":? NEXT I: 
PAPER 7? 
1484 PRINT AT @,@;"THE LETHAL LURGI-GET 
OUT FASTS99" 
14985 PRINT AT 2;@3"n"3AT 21,313"E" 
1486 LET XX=1: LET YY=2: PRINT AT YY, XX3 
"o": FOR I=15@ TO @ STEP -1 
14@7 PRINT AT 2,183" “se8T 2, 1@31 
1488 LET AS=INKEY#: IF A$<>"2" AND AK<>" 
5" AND A#<>"6" AND AS<>"B" THEN NEXT I 
1483 LET HMN=@: LET UM=e 
1418 IF AS="2" AND YY=2 THEN NEXT I 
1411 IF AgS="6" AND YY=21 THEN NEXT I 
1412 IF Ag="S" AND XX=@ THEN NEXT I 
1413 IF A$="8" AND XX=31 THEN NEXT I 
1420 IF A¢="27" AND ATTR CYY-1,XX)=4@ THE 
N GO TO 1468 
1421 IF A$="6" AND ATTR CYY+1;XX)=4@ THE 
N GO TO 14628 
1422 IF Ag="5" AND ATTR CYY,XxX-1)=4@ THE 
N GO TO 146@a 
1423 IF A$="8" AND ATTR CYY;XX+1)=4@ THE 
N GO TO 1462 
1438 IF A$="7" THEN LET UM=-1 
1431 IF A$="6" THEN LET UM=1 
1432 IF A$="5" THEN LET HM=-1 
1433 IF A$="8" THEN LET HM=1 
144@ PRINT AT TY; 8X3" "3 LET Tr=YY+UN? L 


ee a ere, aS ee ROR Pre eee eee 
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ET XX=XX+HM: PRINT AT YY,XX3"o"3AT 2,83" 

a’ ZAT Zig Si s°E* 

1441 LET NM=@: LET UM=0 

1442 IF SCREEN$ CYY,XX+1)="E" THEN GO T 
9 1458 

1443 NEXT I 

1444 PAPER @: INK 7: BORDER @: CLS : PRI 
NT AT 2;@; FLASH 13;"NA NA NA NAAA NaAAAAA 
HA HA HA HA": FLASH @ 

1445 PRINT AT 4,@3;"QUT OF TIME 2290009000 
go0000009e0": GO TO 982G 

1458 PRINT AT 18,@3; FLASH 1;"HOW DID YOU 
MAKE IT 2?7???2?????": FOR I=1 TO 282: 
NEXT I: CLS +: GO TO 38 

1460 PAPER @: BORDER @: INK 7: CLS : PRI 
NT AT @,@; FLASH 1;"HA HA HA HA HA HA HA 
HA HA HA HA"; FLASH @: PRINT AT 4,983;"EA 
TEN BY THE LETHAL LURGI 2992992": GOTO 9 
B20 

1588 IF 2>18 THEN GO TO 1622 

1581 INK @: PAPER 7: BORDER @: BRIGHT @: 
CLS : PRINT AT @,@; FLASH 13"°THE LECHER 
OUS LASERS 299929099090"; FLASH @3AT 28,1 

67 "a" 

1502 FOR I=1 TO 180: NEXT I: INK 2: PLOT 
50,167: BEEP .1,;1@: DRAW 13Q-INT (2Q@XRN 

D),-167 

1583 PLOT 108,167: BEEP .1,1@: DRAW 42-1 
NT (€2@XRND),-167 

1584 PLOT 158,167: BEEP .1,1@: DRAW ~2@+ 
INT €2@XRND),-167 

1585 IF ATTR €2@,16)<>56 THEN FOR I=1 T 
QO 2@@: NEXT I: PAPER @: BORDER @: INK ?: 
PRINT AT @,@; FLASH 1;"SUCKER2 SUCKER 
092 SUCKER22"; FLASH B3AT 4,@3"FRYING TON 
IGHT EH 99999000990009";AT 9,Q; FLASH 13 
"HA HA HA HA HA HA HA HA HA HA HA"; FLAS 
H @: GO TO 93822 

15@6 FOR I=1 TO 100: NEXT I: PAPER 7: BO 
RDER 7: INK @: CLS : FOR J=@ TO 21: FLAS 
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H 1: PRINT AT I,;@3;"IMNPOSSIBLE 2228 
ISSED YOU22": NEXT I: FLASH @: FOR 

QO 200: NEXT I: CLS : GO TO 38 

160@ IF 2>12 THEN GO TO 170d 

1661 INK 7: BORDER 5S: PAPER 5S: BRIGHT 1: 
CLS : PRINT AT @,@; FLASH 13" THE HORRE 

NDOUS HATLSTORM 2989899"; FLASH @5AT 15,1 

6 7"q" 

1682 FOR J=1 TO 21: FOR J=@ TO 31 

1683 IF INT CRNDX2,.5)=1 THEN PRINT AT I 
gd HPs 

1604 NEXT J: NEXT I 

16@5 IF SCREEN$ (15,16)="." THEN PAPER 

@: BORDER @: INK 7: BRIGHT @: CLS : PRIN 
T AT @,8; FLASH 13;"WALLY BRAIN WALLY BRA 
IN WALLY BR"; FLASH @3AT 4,;@3;"HIT BY THE 
HORRENDOUS HAIL 2299999"; FLASH 13AT 39,@ 
;"HA HA HA HA HA HA HA HA HA HA HA"; FLA 
SH @: GO TO 93828 

1686 PAPER 7: BORDER 7: BRIGHT @: INK @: 
PRINT AT 16,;03;"MUST BE SOMETHING WRONG 
WITH THEPROGRAM THAT’S LETTING YOU WIN22 

FOR I=] TO 2060: NEXT I: CLS : GO TO 3 


TREY 1 
Je] 7 


Q 

1786 IF 2514 THEN GO TO 1888 

1781 CLS =: PRINT AT 18,8; FLASH 13"WATCH 
OUT FOR ASTERIA PEEEEERR Ee"; FLASH @t F 

OR J=1 TO 1@@: NEXT I: CLS 

1702 LET XX=16: FOR K=1 TO 6@: PRINT AT 
18,X%x*3" “2: LET Q=USR 3280: IF SCREEN$ (1 

Q,xxX)="k" THEN GO TO 1738 

1703 PRINT AT 1@,XxX3;"o": FOR J=@ TO 31: 
IF INT CRND*¥1,5)=1 THEN PRINT AT 21,543 

PAPER 33"X"; PAPER ? 

1784 NEXT J: LET AS=INKEY$: IF A$="5" AN 

D xXX=@ THEN NEXT K 

1785 IF AS="8" AND XX=31 THEN NEXT K 
1706 IF AS="5" AND ATTR (16, X%xX-1)=4@ THE 

N GO TO 1736 


Nightmare Park 193 


1787 IF AS="B" AND ATTR C18; XX+13=4@ THE | 
N GO JO 1738 | 
1708 IF A$="S5" THEN LET XX=XX-1? PRINT 


AT 18,;XxX+13" “SAT 16,XX3"0" | 
1789 IF Ag="8" THEN LET XX=XX+1: PRINT | 
AT 18;X%xX-13" “GAT 18,;X%Xj3"o" 

1718 NEXT K 


1711 FOR J=@ TO 21: PRINT AT 18;,XxX3" 
RANDOMIZE USR 328@: PRINT AT 10,XXj3"o0": 
NEXT I 

172@ PRINT AT @,@;"WOW 29929 YOU MADE IT N 
EVER AGAIN?": FOR J=1 TO 2806: NEXT J: CL 
S : GO TO 38 

1738 PAPER @: BORDER @: INK 7: CLS : PRI 
NT AT @,;@3; FLASH 13;"HA HA HA HA HA HA HA 
HA HA HA HA"; FLASH @;3AT 4;@0;"ASTERIX G 


OT YOU O82 ARE TOU PLAYING THIS GAME 
OR JUST PALLING ASLEEP PPRPRT?™ : 
GO TO 93822 


1888 GO TO 86 

3868 BORDER @: PAPER @: INK 7: CLS 

3818 PRINT AT 3,8; FLASH 13;"HA HA HA HA 

HA HA HA HA HA HA HA" ;ZAT 6,8; FLASH @3"7 

OU MUST READ SIGNS PROPERLY 228"35AT 9,83 
FLASH 13;"HA HA HA HA HA HA HA HA HA HA 

HA"; FLASH @ 

3826 PRINT AT 14,;13"NIGHTMARE PARK CLAIM 

S ANOTHER" FAT 16s,d25°UCTIMNG2™ 

3838 PRINT AT 20,0; INVERSE 1;"PLAY AGAI 

NP? JP TOU .DARE 22ge eee” 

3835 INUERSE @ 

3846 LET AS=INKEY$: IF AS="" THEN GO TO 
3840 

3845 IF AS="T" OR AS="T" THEN BORDER 7: 
PAPER 7: INK @: RUN 

385@ IF AS="N" OR AS="N" THEN GO JO 385 

ra 

3852 GO TO 384@ 

9855 CLS = PRINT AT 11,33 FLASH 13;"TOUGH 
LUCK 228 YOU’RE HAVING"; FLASH @;AT 13,1 
9; FLASH 1;"ANOTHER GO goo" 
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3866>FOR I=1TO 2@@:NEXT I:RUN 

3998 LET S=PEEK USR “U"+256xPEEK CUSR "“U 
"$1 J? POKE StIgd 

9381 LET xX=S+2818 

3902 LET A=S+39 

3983 GO SUB 9914: PRINT AT 21,9; 

99385 RANDOMIZE USR CPEEK USR “U"+256X*PEE 
K CUSR "U"+1)+101) 

39386 INPUT X: PRINT X 

3908 LET A=PEEK USR "U"+256XPEEK CUSR “U 
ie aN 

3383 GO SUB 93914: GO TO 9985 

3911 INPUT 2¢ 

cote PRINT """" jee g* 

93913 GO TO 93985 

3914 POKE Ati, INT CX7256) 

3915 POKE A;,;X-256x*INT (€X/256) 

3916 RETURN 
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GRAPHIC ADVENTURES FOR 
THE SPECTRUM 48K 


Here are seven superb GRAPHIC adventures written 
specifically for the Spectrum 48K to stretch your imagination, 
skill and ingenuity to the full. 


@ 
TIPTOE your way across NIGHTMARE PARK 

CREEP your way through the HOUSE OF ADVENTURE 
SHIVER your way through DUNGEONS AND DEMONS 
FIND your way through the 3-D MAZE 

FIGHT your way across QUADRILAND 

BATTLE your way with the DRAGON 

BLAST your way with SUPERTANK 


Full scenarios accompany the programs and each one is 
either self-adapting or user-adaptable, to give an almost 
infinite variation. If you wish, you can design your own maze 
in 3-D MAZE or a new dungeon in DUNGEONS AND 
DEMONS. 


To help you write your own adventures, the techniques used 
in writing these programs are explained before each listing. 
Hints on machine code, memory saving routines, user 
defined graphics, arrays, the PLOT and DRAW commands, 
and random numbers will help you adapt and improve your 
own adventure programming. 
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